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Premessa 


La sempre più vasta diffusione degli home computer induce a pensare 
che siano in molti a possedere una sufficiente conoscenza del Basic e 
quindi ormai in grado di scrivere i propri programmi. Inoltre è ceno che 
un home computer non è solo un piacevole hobby o uno svago ma * 
uno strumento sdenti fico e, con dd software adeguato, può consentire 
un approccio nuovo ed ecdtante anche nei confronti di quelli che posso¬ 
no considerarsi classici argomenti di studio. 

A buon diritto esso sta trovando un suo spazio anche nel mondo della 
scuola e si può prevedere che le nuove generazioni di insegnami sentiran¬ 
no l’esigenza di non essere soltanto gli utilizzatori passivi di questo nuo¬ 
vo strumento didattico. 

Tuttavia l’uso del computer in campo matematico e scientifico non con¬ 
sente improvvisazioni ed è necessario che il lettore venga gradualmente 
portato a formarsi una logica di base specifica per tali applicazioni. 

Un libro generico non sempre assolve a questo scopo; spesso costringe 
ad adattamenti e per forza di cose non consente di utilizzare in modo ar¬ 
monico tutte le risorse del computer. 

Al contrario i programmi qui raccolti sono staxi scritti espressamente per 
il 71 99/4A home computa della Texas Instruments Ine. e ne sfruttano 
appieno le capacità; inoltre, non essendo adattamenti da altre versioni dì 
Basic, contengono alcune novità e soluzioni originali. 

Per consentirne l’uso alla maggior parte dei lettori, quasi tutti i pro¬ 
grammi sono stati scrìtti in TI Basic e solo alcuni in Exlended Basic che. 
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come è noto, richiede il modulo di comando acquistabile separatamente. 
I temi sono presentati in ordine di difficoltà crescente, essendo i primi 
generalmente trattati negli studi medi inferiori mentre gli ultimi affron¬ 
tano argomenti specifici degli studi superiori. 

Costituisce un’eccezione l’ultimo capìtolo che riguarda applicazioni varie 
e giochi. 

Non sempre questo ordine logico rispecchia le difficoltà insite nella tec¬ 
nica di programmazione; il primo programma, ad esempio, pur trattan¬ 
do l'argomento elementare della scomposizione in fattori primi, contiene 
degli algoritmi che non sono certamente di facile comprensione. 

Ogni listato è preceduto da una trattazione generale dell'argomento da 
un punto di vista matematico, dall'esposizione delle tecniche utilizzate e 
dalle indicazioni per un corretto uso del programma; segue poi l’esame 
dettagliato delle istruzioni. 

A volte, per meglio illustrare l’algoritmo utilizzato, é stalo introdotto un 
diagramma a blocchi ; spesso viene mostrato anche un esempio pratico di 
utilizzazione del programma e di dò che appare sul video in risposta a 
particolari quesiti. 

I programmi non sono eccessivamente lunghi, ratamente occupano più 
di IO Kbyic. Tuttavia dovrà fare molta attenzione chi intendesse am¬ 
pliarli. Questo è imporrante soprattutto per chi usa il registratore a cas¬ 
sette e l’Enpansion Sistem poiché con tale configurazione i programmi 
su nastro non possono superare i 12 Kbyle (vedi il manuale ddl’Exlen- 
ded Basic Memory Expansion Unii and Cassette-based Program*). 

Nella maggior pane dei casi i programmi sono protetti da eventuali erro¬ 
ri dell'utente cosi da evitare che vengano introdotti errati valori alfanu¬ 
merici che potrebbero provocarne una interruzione. Tuttavia, quando si 
chiede una risposta nella forma S/N è quasi sempre necessario usare la 
lettera maiuscola; come si sa le lettere maiuscole e minuscole hanno due 
differenti numeri di codice «cn, pertanto, durante T esecuzione dei pro¬ 
grammi, è buona norma tenere il tasto ALPHA LOCK in posizione ab- 
tassata. 

Per chi non avesse familiarità con i diagrammi a blocchi, la figura 1 ri¬ 
porta i simboli adottati ed il loro significato. 




CAPITOLO UNO 


Matematica elementare 


1 n omeri primi c la scomporizione la fallori 


Come è noto fin dagli studi secondari inferiori, un numero intero mag¬ 
giore di uno si dice primo se non ammette divisori diversi da se stesso e 
da 1. Questo concetto apparentemente banale ba, in realtà, impegnato 
generazioni di matematici ed alcuni problemi ad esso legali sono tuttora 
irrisolti. Uno di questi va sotto il nome di "ipotesi di Goldbach". L’af- 
fermazioDe che ogni numero pari, maggiore di 2, sia esprimibile come 
somma di due numeri primi non è stata ni smentita ni dimostrata in 
modo generale. É stata invece contraddetta l'ipotesi di Fornai che tutti i 
numeri generali dalla formula 

F{n) = 2 r +1 

siano primi. Ad esempio, 2 1 * +1 - 65 537 i primo, ma 2 J ’ +1 i uguale 
al prodotto 641 x6 700 417 e quindi non i primo. 

Ogni numoo intero può essere rappresentato come prodotto di numeri 
primi. Ad esempio, 120 = 2*x3x5. Questa operazione viene denomi¬ 
nala "scomposizione in fattori primi”. 

Ed ora vediamo il programma che consolle la scomposizione di qualsiasi 
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ÌOO REM SCORGE IZ IONE 
110 REM IN FATTORI 

120 REW 

130 REM Dii SERGIO BORSARI 
140 REM VERSIONE» TI BASIC 
150 REFI 

160 CALL CLEAR 

170 CALL QWR(144,-F“) 

100 CALL COLOR<15,13 ,i3> 

190 PRINT TAB(0)| l 3C»ÒSrZI01€*:« 

200 PRINT TAB(9)S*Tn FATTORI. 

210 CALL )CHAR<1O,0, 144,17) 

220 CALL VCHARUI,B.144.3) 

230 CALL VCHARUI,2*.141.51 
240 C*_L HCHAR<16,6,144.17> 

250 C/*.L CMARU30, "FO90WOF0") 

260 CALL CHAR <131 , *2060202020") 

270 CALL CHARU32,-FOIOFOSOFO") 

230 CALL CHAR<133,-FOIOFOIOFO-) 

290 CALL CHAR<134,-BOa09OF0l-> 

300 CALL CHAR <135,"F080F01OF"1 
310 CALL CHAR(136,“F080F090F") 

320 CALL CHAR<137,-F010204030•) 

330 CALL CHARC138, •F090F090F0") 

340 CALL CHAR < 139, "F090F01OFO" > 

350 DATA 2.3.5,7.11.13.17,19,23. 29.31,37.41.43.47,53.59.61.67,71,73.79 
360 DATA 83.89,97.1Ò1.I03.107. 1Ò9.113. 127, 1 Si.137.13$.1*9.I51.157,1Ò3 
37 0 DATA 167, 173, 179, 181,191,193, 19/, IW,il 1,223, 227, 229,233,239, 24 I , 231 
380 DATA 257,263,269,271,277,201,203,293,307.311,313,317,331,337,347,349 
390 DATA 353,359,367,373.379,303,389.397,401,409,419,421,431.433,439,443 
400 DATA 449"457,461,463,467,479,407, 491,499,503,509,521,523,541 
4|0 RESTORE 350 

420 PRINT -SCRIVI IL NUJCRO DA SCOHPOR- 1 " e 'RE IN FATTORI.-:: 

430 If#HJT -N - “jN 
440 PRINT 
450 PRINT NI - - *‘1 
460 FOR 1-1 TO 100 
470 READ P 
400 L-0 
490 T-0 
500 O-N/P 

310 IF 0-INT(Q)T«N 540 

520 IF T-l ThEN 580 

330 GOTO 630 

540 T-l 

530 L-L+l 

360 N-O 

570 GOTO 500 

300 PRINT STR*(P>| 

590 IF L-l THEN 610 
600 GOSUB 940 
610 IF N-l TFCN 070 
620 PRINT CHR4C42)J 
630 I 

640 PRIMO—547 

650 IF PRIM0>SQR<N>T^CN 060 

660 L-0 

670 T-0 

600 Q-N/PRIMO 

690 IF Q-2NT(0)TtCN 740 

700 IF T-l ThCH 700 

710 PRIMO—FRIHD+2 

720 GOSUB 990 

730 GOTO 660 

740 T-l 

750 L-L*l 

760 N-O 

770 GOTO 600 

700 PRINT 3TR4(PRIMO)I 

790 IF L-l TVCN 010 

000 DOSUB 940 

010 IF N-l T^«N 070 

920 PRINT CHR4(42)I 

030 PRIMO-PRIMO+2 

040 GOSUB 990 

050 GOTO 650 

060 PRINT STRt(N) 

070 PRINT : : 

880 PRINT -VUOI C£MT1MJAR£? CS/N>- 
090 CALL KEY<0,KK.9B) 

900 IF SS-O THÉN 090 

910 IF (KK< >70> * <KK< >03) THEN 090 

920 CALL CLEAR 

930 IF KK-83 T1CN 410 ELSE 1150 
940 FOR J-l TO LEN(9TR6(L>) 

930 M-VAL(SEG»(9TR«(U, J,D) 
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760 RRINT CHR*1130*0)1 

970 NEXT J 

900 RETURN 

990 RESTGRE 350 

IOOO F0R 1*2 TO 100 

1010 REOD P 

1020 IF P.'SORtPRIOO) THEN IMO 

1020 IF PRIRO/P >INT<PRIO0/P>THEN 10*0 

1040 PRIhQ-PRInO+2 

1050 GOTO 990 

10*0 NEXT I 

1070 Z-547 

1080 IF Z 'SOR (PRIMO) THEN IMO 

1090 IF PRINO/Z'l > INT (PRIMO/2 > THEN 1120 

1100 PRtM0*PR!t10»2 

lllO GOTO 990 

1120 Z»Z*2 

1130 GOTO 1080 

IMO RETURN 

1130 END 


Un programma per la scomposizione in fattori deve contenere una routi¬ 
ne per la ricerca dei numeri primi, infatti i divisori di un numero dato 
vanno cercati solo nel loro insieme. Teoricamente per stabilire se un nu¬ 
mero é primo basta verificare che non abbia altri divisori che se stesso. 
La verifica, se condotta in modo estensivo, comporla tempi di elabora¬ 
zione piuttosto lunghi e si rende necessaria l’applicazione di alcuni con¬ 
cetti volti ad ottimizzare il calcolo. 

Primo, ad eccezione del 2 tulli i numeri primi vanno ricercali tra i nu¬ 
meri dispari. Secondo, la ricerca di eventuali divisori dì un numero non 
é necessario che si spinga oltre la radice quadrala del numero stesso. In¬ 
fatti, immaginiamo ad esempio di voler stabilire se 47 é primo; verifica¬ 
to che non è divisibile per due, per 3 e per 3, é inutile controllare la divi¬ 
sibilità per 7, poiché se 7 fosse un divisore, allora 47 dovrebbe essere 
scomponibile nella Torma 7x3 o 7x3x2, dove compaiono anche fattori 
che in precedenza avevamo già scanato; quindi 47 è senz'altro primo. 

Il programma inizia con la definizione dei caratteri che rappresentano gli 
esponenti (linee 250 340); successivamente, per raggiungere una maggio¬ 
re efficienza, sono stati memorizzati con istruzioni DATA i primi cento 
numeri primi fino a 341. 

Possiamo distinguere due sezioni principali, molto simili tra di loro: la 
prima utilizza i numeri primi già memorizzati nel programma (vedi figu¬ 
ra I), la seconda effettua la ricerca dei numeri primi superiori a 341. 
Consideriamo la routine denominata STAMPA. N rappresenta inizial¬ 
mente il numero da scomporre in fattori, sucessivomente è uguale alla 
parte che rimane da scomporre. P contiene i numeri primi in ordine cre¬ 
scente (2, 3, 3, 7, ecc.); L é un contatore che contiene l’esponente con il 
quale compare un fattore primo. Se si trova un numero primo divisore 
di N, L viene incrementato di una unità ed N prende il valore del quo¬ 
ziente. Finché la divisione é esatta si continua a dividere per lo stesso 
numero primo, altrimenti si passa al numero primo successivo. Si proce¬ 
de in questo modo finché non sia N = 1. 

Quando la variabile ha raggiunto il valore di S41, viene posto 
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IS 


PRIMO = 547 e successivamente si incrementa di 2, poiché cosi si rimane 
nell’ambito dei numeri dispari. La routine alle linee 1000-1150 ha lo sco¬ 
po di verificare se il nuovo valore é effettivamente un numero primo op¬ 
pure no. Per fare questo il valore della variabile PRIMO viene diviso 
successivamente per i numeri primi memorizzati con le istruzioni DATA 
e, se non si trovano divisori tra questi, la ricerca si estende a tutti i nu¬ 
meri dispari superiori a 541. Solo se non si trovano divisori, PRIMO vie¬ 
ne effettivamente considerato un numero primo e passa nella routine 
STAMPA per verificare se è un divisore del residuo N. 

Con gli accorgimenti adottali e se i fattori primi non sono molto alti, il 
tempo di esecuzione si riduce generalmente a pochi secondi. La memoria 
richiesta è di 2,7 Kbyte. 

Esempio pratico: 


RUN 



Tempo di esecuzione: 1 secondo e 1/2. 


L'iigoriUao euclideo 

Supponiamo di eseguire un'ordinaria divisione tra i numeri interi 628 e 
24; si ha il quoziente 26 ed 0 resto 4. È soddisfatta la seguente ugua¬ 
glianza 


628 = 26 x 24 + 4 

Si può dimostrare che i divisori comuni di 628 e 24 sono anche divisori 
comuni di 24 e 4. Ripetendo il procedimento con questi due numeri si 
ottiene i) quoziente 6 ed il resto 0, pertanto 

24 = 6x4 + 0 

Anche in questo caso i divisori comuni di 24 e 4 sono divisori di 4 e 0. 
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Si deduce che 4 è il massimo commi divisore di 628 e 24. 
Riponiamo il diagramma a blocchi relativo a questo algoritmo. 



Rg. 3 


Segue il programma in Basic che potrà essere utilizzato come routine per 
trovare il mcd tra due numeri e per ridurre ai minim i termini una frazio¬ 
ne. 


100 CALL CLEAR 

no PRINT TAB<6>;-ALGORITUO EUCLIDEO”: ::::::::: 

120 FOR T’-l TO 500 
150 NEXT T 

HO PR1NT "E" UN METODO PER TROVARE tL":"M.C.D. TRA DUE NUMERI":: 
130 FRINT -NEL CORSO DEL PROGRAMMA PRE-MI UN TASTO PER PROSEGUIRE 
160 PRINT "ORA SCRIVI I DUE NUMERI":: 

170 INPUT “A ■= A 
IBO INPUT “B = " : B 
190 PRINT 

00 PRINT "DIVIDO IL MAGGIORE PER IL": "MINORE": : 

IO IF A >(s THEN 250 
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y<b 

roto 270 

v-A 


T?0 C'=Y/y 

ae>'> r-v • int <0 

: r -.' FflN r Y: v; int idi 

' re-tur CON IL PESTO DI":R:: 

rio I.M.t l'EVIO.I ,s> 

zzo ’.f S’O then z\o 

DIVISORE PER IL RESTO - :: 


cali, lev' o.r.s> 

•irò :C 0«0 THEN *20 
I* !-«• THEN lOÒ 
ISO !E I - “LR THIÌN 170 
::•:• ROTO *?■> 

<v. C«.l. CLEftR 

«9" rni> 


rio PP1NT -PROSEGUO DIVIDENDO il prece-dente 

ZZ" Y--X 
. t-R 

l?r. GOTO 27C‘ 

•?■■■ PRIMI "f-OICHE' IL RESTO E' UGUALE A" 

-lo FRI NT "»CRD ."iOT IL N.C.D.”:: 

4 frinì "n.c. D. : stri ( a> : ,";stri ir» : 

a..'. PRIMI "VUO I CONI INIJARE” f*/N> ” 


Dopo la presentazione e le istruzioni, vengono accettati i due numeri dei 
quali si vuol trovare il mcd (170-100). Le linee 190-260 hanno lo scopo 
di attribuire alla Y il maggiore dà due numeri. La variabile □ è il quo¬ 
ziente mentre Rii! resto. La linea 330 manda alle conclusioni se il resto 
è zero, altrimenti il precedente divisore diventa il nuovo dividendo e il 
resto diventa il nuovo divisore (350-360). Le conclusioni sono stampate 
alle righe 380-400. 


Massimo cornane divisore e minimo comune multiplo 

L’aJgoriirao euclideo fornisce un metodo rapido e sicuro per trovare il 
mcd tra due numeri, tuttavia, quando i numeri sono più di due, bisogna 
seguire una via diversa. 

Poiché il mcd di più numeri deve essere minore o al massimo uguale al 
più piccolo di essi, si verifica se questo è divisore di tutti gli altri nume¬ 
ri; se lo è. esso è il mcd, se non lo è, si divide successivamente per 2, 3, 
4 ecc. finché il risultato é un numero intao, dopo di che si verifica nuo¬ 
vamente se questo divisore é anche divisore di tutti gli altri numeri. 

Pa il mcm le considerazioni sono analoghe. Infatti il mcm é o il maggio¬ 
re dò numeri dati o un suo multiplo. 

In Basic per conoscere se un numero é multiplo di un altro numero, si 
verifica se é soddisfatta la seguente condizione: 

M/N = INTIM/N) 

dove M e N sono i numeri dati. La funzione INT restituisce la pane inte¬ 
ra del quoziente. 
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MASSIMO COMUNE DIVISORE 
E 

MINIMO COMUNE MULTIPLO. 


DI: SERBIO BORSARI 
VERSIOFE: TI BASIC 


100 REM 
HO REM 
120 REM 
130 REM 
HO REM 
130 REM 
160 REM 
170 CALL CLEAR 
ISO CALL CHARC120,"F*> 

190 CALL COLOR(13,11.11) 

200 PRINT TABH)I^MASSIMO COMUN DIVISORE’:: 

210 PRINT TABI 14)l"E":: 

220 PRINT TAB (4) ; ''MINIMO COMUNE MULT IPLO“ : t M : I : : 

230 CALL HCHARd 0,4,120,26) 

240 CALL VCHAR(ll,4,12B.7) 

250 CALL VCHAR(11,29.12B-7) 

260 CALL HCHARU8.4,120,26) 

270 FOR T-l TO 500 

200 fCKT T 

290 PRINT "PREMI:":: 

300 PRINT "1. PER IL H.C.D.“:: 

310 PRINT “2. PER IL n.c.a.I 
320 PRINT “3. PER FINIRE" 

330 CALL KEY(0,K.9> 

340 IF S-0 THEN 330 

350 IF K=49 THEN 390 

360 IF K-50 TFEN 710 

370 IF K-31 THEN 1130 

300 GOTO 330 
390 CALL CLEAR 
400 PRINT "M.C.D.":: 

410 CALL HCHAR(2*,3,120,20) 

420 PRINT ::: 

430 PRINT "DI QUANTI NUMERI VUOI TROVARE IL M.C.D. ”t 
440 INPUT N 
430 PRINT 

460 IF Ns*10 T>EN 490 

470 PRINT ‘SPIACENTE, NON PIU’ DI 10. "li 
400 GOTO 430 

490 PRINT "SCRIVI UN NUMERO PER VOLTA, POI PREMI ENTER 
500 If^UT 4(1) 

310 MINIAI!) 

520 FOR 1=2 TO N 
330 INPUT 4(1) 

340 IF M1NI<=X(I>THEN 360 
330 MINI-I(I) 

360 NEXT I 
370 K-0 
SBO K=K*1 
590 O-MINI/K 

600 IF OOINT(Q)T)6N 300 
610 FOR 1-1 TO N 

620 IF X(I)/Q-INT(X<I)/Q)T>CN 640 
630 GOTO 580 
640 NEXT I 
650 PRINT 

660 PRINT "M.C.D. »’|Q:n 

670 GOSUB 1080 

680 IF K-B3 THEN 390 

690 CALL CLEAR 

700 GOTO 290 

710 CALL CLEAR 

720 PRINT "m.c.a.*:I 

730 CALL HCHARC24,3,120,20) 

740 PRINT ::: 

750 PRINT "DI QUANTI NUTCRI VUOI": "TROVARE IL «.C.fll. " 
760 INPUT N 
770 PRINT 

700 IF N< = IO T)CN 010 

790 PRINT "SPIACENTE, NON PIU' DI 10.":: 

000 BOTO 730 

010 PRINT "SCRIVI UN NUMERO PER VOLTA, POI PREMI ENTER 
020 INPUT X(l) 

030 MAX-X(l) 

B40 FOR 1=2 TO N 
B30 INPUT X<I> 

060 IF MAX>=X(I)T>CN 880 
070 MAX=X(1) 

B80 NEXT 1 
090 K=0 
900 K=K+I 
910 P«MAX*K 
920 FOR 1-1 TO N 

930 IF P/X(I)»INTIP/X(I))THEN 930 
940 GOTO 900 
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950 fEXT I 
960 PRINT 
970 PRINT -a 
900 PRINT 
990 PRINT PS 
1000 FOR 1*1 


C.a. 


“SPS! 


»" ( 

__ . _ TO N 

1010 PRINT TOP(LEN«5TR» (P) )*5> S* ( I) S-«-;P/XM > 

1020 NEXT I 
1030 PRINT S : S 

10«c> GOSUB 1080 
1050 IF F-0I THEN 710 
1060 COLL CLEAR 
1070 GOTO 390 

1000 PRINT “VUOI CONTIMJARE7 1S/N1 " 

1090 CALL KEYIO.K.S) 

1100 IF 5*0 THEN 1090 

1110 IF <K : >?0>« CKX >03>T)«N 1090 

1130 RETURN 

1130 CALL CLEAR 

1140 END 


Alk linee 290-320 viene chiesto se si vuole ottenere il mcd o il mcm. La 
sedia 4 ToNiai» con un CALL KEY, pertanto non 4 necessario premere 
fl usto ENTER. Nella linea 440 Insogna specificare di quanti numeri si 
vuole ortense il mcd. N 4 stato posto inferiore a 10. Successivamente si 
scrivono I numeri uno per volta e questi vengono raccolti nella variabile 
con indice XIII; nella variabile MINI si carica il minore dei numeri. K 4 
una variabile che assume i valori 1, 2, 3, 4..., Q 4 il quoziente della divi¬ 
sone MINI/K. Alla linea 620 si controlla se Q 4 divisore di tulli gli altri 
numeri dati e quando si verifica (ale circostanza Q 4 il massimo comune 
divisore. 

Alla linea 710 inizia la sezione per il calcolo del mcm. Il procedimento 4 
simile al precedane. Alle linee 820-680 si chiede l’input dei numeri, il 
massimo di questi viene memorizzato nella variabile MAX. K assume 
successivamente i valori 1, 2. 3,4,..., P 4 il prodotto MAX*K. Quando P 
4 multiplo di tutti i numeri dati, allora 4 il minimo comune multiplo. U 
suo valore viene stampato alla linea 270. 

Poicb4 talvolta può rivelarsi utile, alle linee 1000-1020 viene stampato 
anche quante volte ogni numero è contenuto nd mcm. 


Flazloat 

0 programma svolge le più comuni operazioni con i numeri frazionari, 
nell'ordine: trasformazione di una frazione in un numero decimale, tra- 
sforinazione di un numero decimale in frazione, sia esso limitato o illi¬ 
mitato periodico, semplificazione, ricerca di una frazione equivalente ad 
una data, confronto e le quattro operazioni aritmetiche. 

L'argomento generalmente viene affrontato al termine del ciclo di istru¬ 
zione primaria e nd primo anno della scuola media, pertanto non 4 ne¬ 
cessario esporre le regole di calcolo che sono gii note a tutti. Anche la 
programmazione non presenta particolari difficolti. Tuttavia 4 necessa¬ 
rio un colo impegno nd prevedere errori da pane dell'utente che po- 
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irebbero provocare un blocco dei programma, come un denominatore 
posto uguale a zero. 

Alcuni risultati particolari richiedono un output ad hoc e pub essere de¬ 
siderabile ottenere una forma che normalmente non è ottenibile in TI 
Basic. Basti un esempio a tal proposito: il modo più semplice per scrive¬ 
re una frazione consiste nelTusare l'istruzione PRINT con la 

quale numeratore, linea di frazione e denominatore vengono stampati 
sulla stessa riga. Per maggiore chiarezza, in questo programma, le fra¬ 
zioni vengono spesso scritte in modo convenzionale, anche se dò com¬ 
porta un maggior numero di istruzioni. Per far dò, infatti, è necessario 
definire un carattere per la linea di frazione e ripeterne la stampa per 
tutta la lunghezza del numeratore o del denominatore a seconda che sia 
più lunga la stringa dei primo o del secondo. É preferibile inoltre alli¬ 
neare le afre a sinistra e, mancando l’istruzione PRINT USING, disponi¬ 
bile solo in Extended Basic, si può usare ristniziooe PRINT TAB1N-LEN 
(STRSIAIH; dove N è un numero opportuno tale che ('argomento della 
funzione TAB sia maggiore di zero. 

Quando è richiesto l’input di più frazioni, il loro numero massimo t sta¬ 
to posto uguale a 10. In tal modo non i necessario il dimensionamento 
delle variabili con indice. Died ì un numero più che sufficiente per le 
normali applicazioni; chi volese aumentare tale limite deve aggiungere 
all’inizio del programma Tistnizione DIM NNOQ.DDOO.VDIXI.FRZIX) 
dove X è il numero massimo di frazioni che possono venir accettate. 


100 

no 

ì» 

130 

MO 

130 

ISO 

170 

100 

190 

20*7 

210 

220 

230 

240 

250 

260 

270 

200 

290 

300 

310 

320 

330 

340 

350 

360 

370 

300 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 


REM FRAZIONI ••• 

REM DI SERGIO BORSANI 
REM VERSIONE: TI BASIC 
CALL CLEAR 

CALL CHARC12B,"OOOOOOOOFF”) 

CALL CHAR(129,“000000000000FF”) 

CALL CHAR(136, "F”) 

CALL COLORI 14,9.91 

RRINT TAB(10);"FRAZIONI":: ss::::::? 

CALL HCKARU 1, 10, 136, 12) 

CALL VCHARM2, 10,136,3) 

CALL VCHAR<12.21,136.3) 

CALL HCHAR <13.10,136,12) 

FOR T-1 TG 50o 
NEXT T 
CALL CLEAR 
PRINT "PREMI:":: 

1. PER TRASFORMARE UNA FRA-":” 

2. PER TRASFORMARE UN DECI'-": M 

3. PER SEMPLIFICARE UNA FRA-*’: " 

4. PER L’EQUIVALENZA":: 

PRINT "S. PER IL CONFRONTO":: 

PRINT *6. PER L'ADDIZIONE E LA SOT-":" 

PRINT ”7. PER LA MOLTIPL1CAZIONE"i: 

PRINT "0. PER LA 01 VISIONE": : 

PRINT "9. PER FINIRE." 

CALL KEY<0,l> .SS) 

IF SS-*0 THÉN 360 

IF •Ffc <49) ♦ (KK .‘ 57) THEN 360 

f - Y - 40 

ON V¥. GOTO 410.560.1240.1490,1960,2370,2890.3200,3910 
CALL CLEAR 

PRINT -TRASFORMAZIONE DI UNA FRA-":"2 IONE IN NUMERO DECIMALE" 
CALL HCHAR'24,3.136,20) 

PRINT ::: 

GOSUB 37B0 
X=A/B 
PRINT A 
GOSUB 3860 


PRINT 

PRINT 

PRINT 

PRINT 


1 IONE IN DECIMALE":: 
MALE IN FRAZIONE":: 

ZIONE":: 


TRAZIONE":: 
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490 FOR 1-2 TO K-U 

500 PRINT TABU) iCIffitl 1201 ; 

510 NEXT 1 

520 FRINÌ TAB(K>3>S”«-!X 
530 PAINT 8»:: 

540 GOSUB 33B0 

550 IF KK-03 THEN 410 ELSE 230 
560 COLL CLEAR 

570 PAINT -TRASFQRtWRE UN MUTERÒ * s" DEC I MALE IN FRAZIONE'':! 
560 COLL HCHAfl(24,3,136,26) 

590 PRINT ::: 

600 PAINT -IL MUTERÒ DECIMALE E' PERIO-":"DICO? (S/N>":i 
610 CALL KEYIO.KK.SS) 

620 IF SS-0 THEN &10 
630 IF KK-76 THEN 660 
640 IF KK-B3 TTEN 070 
650 GOTO 610 

660 PRINT -SCRIVI IL NUMERO DECIMALE"! : 

670 IWHJT -N - ":N 
660 LL*LEN<STR*(N>) 

690 D-LENCSTR»(N-INT(N))>-1 

700 A-NOO-D 

710 B=10'D 

770 GOSUB 3630 

730 PRINT : : 

740 PRINT TAB(4*LL);NUfE 
750 PAINT NI"-"; 

760 IF NUME)DEMO TTEN 790 
770 K-LEN (STO* IDEM» ) 

760 GOTO eoo 

790 K-LENISTR*<NUME) > 

000 FOR I-5+LL TO 4-H.L-HC 
0)0 PRINT TABU) tCHR*<12B)l 
820 NEXT I 
030 PRINT 

040 PRINT TAB(4*LL> i DENO: : : 

850 GOSUB 3580 

860 IF KK-03 THEN 560 ELSE 250 
870 PRINT ::: 

880 PRINT -SCRIVI IL MJMERO SEN2A R1PE-*:*TERE IL F>ERIODO":: 
890 I6TUT *N • *:X 
900 PRINT 

910 PRINT "QUANTE CIFRE FORMANO IL* 

920 ItEUT "PERIODO* 7 -:PER 
930 PRINT : : 

940 ANT-LEN (STR* <X—INTIX1 I ) -PER- I 
950 LL-LEN<STR*U>) 

960 CEC-ANT+PER 

970 N«X»I0-DEC-INT()I»10-ANT) 

990 6*9 

990 IF PER'2 TKEN 1030 
1000 FOR I-I TO PER'I 
1010 D=D«10*D 
1020 (EXT 1 
1030 D*D»10~ANT 
1040 FOR 1-1 TO PER 

1050 PRINT TAB ( 1 H.L-U-PERUCHFt* (129)1 
1060 NEXT 1 

1070 PRINT TAB(LL+4)(N 
1080 PRINT Xi--*» 

1090 IF X>1 ThEN 1120 
1100 K-LEN (STR* IN) 1 
IliO GOTO 1130 
1120 K-LEN ( STR* ( D) I 
1130 FOR 1=0 TO K 

1140 PRINT TAB(LL+I+3);CHR*(12BU 
1130 NEXT I 
1160 PRINT 

1170 PRINT TAB(LL*4>1 D: : 

UBO A-N 
1190 B-D 
1200 FF-1 
1210 GOTO 1290 
1220 FF-0 

1230 IF KK-B3 THEN 360 ELSE 230 
1240 CALL CLEAR 

1250 PRINT -SEMPLIFICARE UNA FRAZlOfC'i! 

1260 CALL HOHAR(24,3, 136,20) 

1270 PRINT ::: 

1280 GOSUB 37BO 

1290 GOSUB 3630 

1300 PRINT Al 

1310 GOSUB 3660 

1320 PRINT TABC4-K) INETTE 

1330 FOR 1-2 TO K+l 

1340 PRINT TABU) SOE*U2B> t 
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1350 NEXT I 
1360 PRINT " = "! 

1370 IF NUME >DEN0 THEN 1400 
1300 F=LENISTR*I DENO)) 

1390 BOTO 1410 

1400 F*LEN(5TR*(NUNE>) 

1410 POR J = l*3 TO I+K>2 
1420 PRINT TAB IJMCHR» 1128) » 

1430 NEXT J 
1440 PRINT 

1450 PRINT 0;TABI1+2)(DEMO; !: 

1460 BOSUB 3500 

1470 1F FF=1 THEN 1220 

1480 IF KK=03 THEN 1240 ELSE 250 

1490 CALL CLEAR 

1500 PRINT ‘FRAZIONI EQUIVALENTI "t « 

1510 CALL HCHARI24.3, 136,28) 

1520 PRINT ::: 

1530 PRINT "SCRIVI LA FRAZIONE’:“CONOSCIUTA"iI 
1540 BOSUB 3700 

1550 PRINT TABI 13-LENISTR*(A))1;STR»IA)|TAB(16)1"M" 

1560 BOSUB 3860 
1570 FOR I=13-K TO 12 
ISSO PRINT TABI I>|CHR*(128)1 
1590 NEXT I 

1600 PRINT T AB 114 >;" a *!CHR«U28> 

1610 PRINT TABI13-LENISTR4(B))J t STR*IB >; TABIL6)I"N"i: 

1620 INPUT "COSA VUOI TROVARE? Ih/N) -;R* 

1630 PRINT 

1640 IF R* a "H" THEN 1680 
1650 IF R*=-N" TFCN 1750 
1660 PRINT -ERRORE! RIPROVA*! 

1670 GOTO 1620 
1680 INPUT "N « ”:N 
1690 PRINT 

1700 IF NOO THEN 1730 
1710 PRINT "ERORE 1 RIPROVA"! 

1720 BOTO 1680 
1730 M-A»n/B 
1740 GOTO 1780 
1750 INPUT -fi » ":K 
1760 PRINT 
1770 N-M*B/A 
1780 BOSUB 3860 
1790 K1=K 

1800 IF H)N THEN 1B30 
1810 K2-L£N(STR*<N>> 

1820 BOTO 1840 
1830 K2 a LEN(9TR*IM)) 

1840 PRINT TAB113-LENISTR* <A > ) ) I STR» IA1 ! TAB 116+K2-LENISTR* (M) 11 ! STR* IM) 

1850 FOR I-13-K1 TO 12 

1860 PRINT TABI l>lCWt»< 128) « 

1870 NEXT 1 

1B80 PRINT ” » "I 

1890 FOR 1=16 TO 15+K2 

1900 PRINT TAB(I1;0«*II28)1 

1910 NEXT I 

1920 PRINT 

1930 PRINT TABI13-LEN(STR*16)I)|STR*(B>ITABI16*K2-LENISTR*INI)):STR»IN) 
1940 GOSUB 3580 

1950 IF KK=83 THEN 1490 ELSE 250 
I960 CALL CLEAR 
1970 PRINT "CONFRONTO": i 
1900 CALL HCKAR (24,3,136.28) 

1990 PRINT ! ! ! 

2000 PRINT "QUANTE FRAZIONI DEVI* 

2010 INPUT -CONFRONTARE? *:N 
2020 PRINT 

2030 IF N< = 10 T1CN 2060 

2040 PRINT 'SPIACENTE, NON PIU" DI 10'er 

2050 BOTO 2000 

2060 FOR 1=1 TO N 

2070 PRINT "FRAZIONE"!1I*!* 

20B0 BOSUB 3780 
2090 NNII)-A 
2100 DDII)=B 
21 IO FRZIU-A/B 
2120 VDII ) =FRZ 111 
2130 PRINT 
2140 NEXT I 
2150 SW=0 

2160 FOR 1=1 TO N-l 

2170 IF VDIIK-VDII+11THEN 2220 

2180 FF-VDII) 

2190 VDID-VDIIM) 

2200 VDI1+1)=FF 
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All’inizio del listato sono definiti alcuni caratteri grafici; il numero 128 è 
la linea di frazione. 11 titolo occupa le linee seguenti (180-220). Il rido 
FOR-NEXT della variabile T serve semplicemente a mantenere il titolo 
sullo schermo per un certo tempo. 11 menù (250-350) contiene 9 opzioni 
per accedere alle varie sezioni del programma. 

Nella linea 380 si controlla che il tasto premuto sia compreso tra 1 e 9, i 
quali hanno come numero di codice ascd 49 e 57; la scrittura, che a ta¬ 
luni potrebbe sembrare strana, simula la funzione OR che non è disponi¬ 
bile in TI Basic. Ricordo che il computer attribuisce il valore -1 ad 
un'uguaglianza o disuguaglianza vera ed il valore 0 ad una uguaglianza 
o disuguaglianza falsa, inoltre l’invio al numero di linea specificato do¬ 
po la parola THEN avviene solo se il valore trovato è -1. La prima se¬ 
zione i contenuta nelle linee 410-550; in essa si calcola il valore decimale 
corrispondente ad un numero frazionario. Per l'input dei dati si va alla 
routine 3780 (GOSUB di linea 450); alla linea 460 viene calcolalo il valo¬ 
re decimale (variabile X). Il risultato è preceduto dalla frazione scritta in 
modo convenzionale, con il numeratore, la linea di frazione ed il deno¬ 
minatore uno sull'altro e non sulla stessa riga. La routine 3860 (GOSUB 
di linea 480) serve a determinare la lunghezza della linea di frazione. 
Nella seconda sezione (560-1230) si trasforma un numero decimale in 
frazione. Si fa distinzione se il numero t decimale limitato o periodico. 
Le regole di calcolo sono quelle note; ad esempio, un numero periodico 
corrisponde ad una frazione che ha per numeratore il numero, senza la 
virgola, meno la parte non periodica e per denominatore un numero co¬ 
stituito da tanti nove quante sono le cifre del periodo seguiti da tanti ze¬ 
ri quante sono le cifre dell'antiperiodo. X (lìnea 890) è il numero perio¬ 
dico, PER (linea 920) è il numero delle cifre che formano il periodo, 
ANT (linea 940) è il numero delle cifre che formano l'antiperiodo, LL è 
la lunghezza dell'intero numero, DEC la lunghezza della pane decimale, 
N è il numeratore calcolato sottraendo la porte non periodica all'intero 
numero senza la virgola, infine D è il denominatore, calcolato alle linee 
990-1030. 

La stampa occupa le linee 1040-1230; dopo che i stala scritta una prima 
frazione, viene posto a 1 il flag FF e sì passa alla sezione successiva dove 
si ristampa la stessa frazione ridotta ai minimi termini. Subito dopo il 
flag viene azzerrato. Alle linee 1240-1480 si trova la sezione per sempli- 
fuare una frazione; il calcolo, svolto nella routine 3630 (GOSUB di linea 
1290), segue l’algoritmo euclideo. La sezione per la ricerca delle frazioni 
equivalenti occupa le linee 1490-1950. L’input dei dati i svolto ancora 
dalla routine 3780. Lo sforzo maggiore consiste nello scrivere le due fra¬ 
zioni equivalenti nel modo convenzionale, una a fianco dell’altra, sepa¬ 
rate dal segno "= ”. 

La lunghezza delle linee di frazione ed il giusto incolonnamento sono 
fatti in base alla lunghezza dei quattro termini (linee 1780-1830). La li- 
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nea 1840 stampa i due numerai ori, le successive le due linee di frazione e 
la riga 1990 stampa i due numeratori. 

Dalla linea 1960 alla 2360 si effettua il confronto tra frazioni, cioè viene 
fatto il loro ordinamento dalla minore alla maggiore in base ai corri¬ 
spondenti valori decimali. 

Le sezioni seguenti sono dedicate alle quattro operazioni: addizione e 
sottrazione da linea 2370 a 2880, la moltiplicazione da 2890 a 3Z70 e la 
divisione da 3280 a 3870. Le principali variabili utilizzate in quest'ultima 
parte sono: NN4I) e DD(I), numeratori e denominatori delle frazioni in 
input; TD, denominatore comune, prodotto di tutti i denominatori; C, 
quante volte ogni numeratore è contenuto nel denominatore comune (li¬ 
nea 2610); TN, somma dei numeratori. 

In fondo al programma sono state poste le routine. In 3580 quella per 
porre la domanda se si vuole continuare; la moltiplicazione alla linea 
3610 simula l'istruzione IF...AND che non è disponibile in TI Basic. 
L’algoritmo di Euclide occupa le linee 3630-3770; in entrata abbiamo le 
vnriabili A e B, in usata NUME e DENO. La routine 3780, come è già 
stato detto, serve per l'input di una frazione; in essa si controlla che il 
denominatore sia diverso da zero. L'ultima, righe 3860-3900, serve per 
determinare la lunghezza K di una linea di frazione. 

□ programma occupa circa 7,6 Kbyte di memoria. 


Intere** e scosto 

Qual era il prezzo di listino se, dopo aver ottenuto uno sconto dell'Bft. 
si è pagata una somma di lire 23000? Quale aliquota percentuale è stata 
applicata alla somma di lire 85000 per ottenere un importo di lire 
97000? Queste ed altre simili domande trovano una risposta nelle prime 
due sezioni del programma, dedicate, per l'appunto, allo sconto e all'in¬ 
teresse semplice. U calcolo generalmente viene affrontato nella seconda 
classe della scuola media e consiste nel risolvere una proporzione. Ad 
esempio, considerando il primo problema, possiamo scrìvere: 

jr: 23000 = 100 : 92 


da cui si ricava: 


23000x100 

92 


25000 


L'interesse derivante da un deposito bancario, se non viene ritirato, vie¬ 
ne capitalizzato, cioè sommato al capitale iniziale. Se, ad esempio, il ca¬ 
pitale è di lire 1000000 ed il tasso di interesse è del I44fc, dopo un anno 
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l'interesse ammonta a lire 140000. L’anno succssivo il tasso del 14* 
non i più applicalo al milione iniziale ma a lire 1140000 che costituisco¬ 
no quello che viene chiamato montante. Al passare degli anni il capitale 
aumenta secondo una legge esponenziale. 

Ecco la formula per calcolare l’interesse composto: 

M = C(i+rt/K) (V-kT) 

M t il montante, C il capitale minale, R è il tasso d’interesse, V è il nu¬ 
mero di volte che, in un anno, l'interesse viene composto al capitale, Ti 
il tempo, espresso in anni. Nd programma tale funzione è definita alla 
linea 370. Ricordo che in TI Basic il nome della funzione può essere se¬ 
guito da una variabile posta tra parentesi. Altri tipi di Basic ammettono 
piti variabili tra parentesi. 

La sezione è arricchita dalla rappresentazione dei valori, anno per anno, 
in forma grafica e per tabulazione. 11 grafico, un diagramma a strisce, i 
particolarmente efficace per comprendere il significato di una legge di 
accrescimento esponenziale. Una particolare routine che verrà spiegata 
nd terzo capitolo, permette di far variare, pud per pud. la lunghezza 
delle strisce che formano il grafico, le quali altrimenti varierebbero ca¬ 
rattere per carattere (un carattere i lungo 6 pixel), rendendo piò appros¬ 
simala (a rappresentazione. 

Per dare una dimensione reale al tema trattato i stala aggiunta una par¬ 
te che consente di calcolare capitali, riferiti ad anni diversi, aventi lo 
sesso potere d’acquisto. Ad esempio, la somma di lire 800000 del 1973, 
a causa dell'inflazione, equivale a più di 2700000 dd 1983. I coefficienti 
necessari per il calcolo sono quelli medi annui desunti dalla rivista Capi¬ 
tai. Essi coprono t’intervallo di tempo che va dal 1970 al 1983 e sono ri¬ 
feriti al 1982; qudlo dell’ultimo anno è solo presumo. 

Le lire riferite ad un anno, moltiplicate per il corrispondente coefficien¬ 
te, danno le lire equivalenti per l’anno 1982. Inoltre si possono compa¬ 
rare due anni qualsiasi, appartenenti al periodo su indicato, tenendo 
canto della seguente relazione: 


dove LI ed L2 sono le lire nei due anni che si vogliono confrontare, e ci 
e c2 sono i rispettivi coefficienti. 

Per rendere più immediata la comprensione dei risultati, questi sono ac¬ 
compagnati da ideogrammi costituiti da pile di monete in numero pro¬ 
porzionale al capitale da rappresentare. 
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100 NEH INTERESSE E SCONTO 
Ilo RE fi •»»<«***«•••*«*> 

120 REM DI: SCROTO SORSANI 
130 RE fi VERSIOfC: TI BASIC 
140 CALL CUEAR 
150 DIfl C0EFFU3) 

160 A6(1»--FF7F1F03- 
170 A*(2)--FFFFFFFF3F* 

ISO A»<3) -“FFFFFFFTFFFF- 
190 A«(4)-'FFFFFFFFFC" 

200 A*(3)--FFFEF8C- 

210 FOR I-l TO 5 

220 CALL CHAR(I27-H,A*(I>1 

230 CALL CHAR1135* I, A6 <I)) 

240 HCXT I 

230 CALL CHAR(133, "FFFFFFFFFFFFFFFF - ) 
260 CALL CHAR(14!,"B0601C01"> 

270 CALL CHAR(142,"000000036C*) 

280 CALL CHAR (143,"01063BC") 

290 CALL CHAR ( 144, “00000000031F7FFF') 
300 CALL CHAR( 143. "0000013FFFFFFFFF") 


340 CALL COLOR (13. 11,1) 

350 CALL COLOR(14,12,11) 

360 CALL C0L0R(15. 12, I) 

370 DEF FNN-CA» ( 1+R/V) " (V*T 1 

380 RI-6 

390 CO-6 

400 GOSUB 4000 

410 TIT6-"INTERESSE E SCONTO - 
420 FOR 1-1 TO LEN(T!T*) 

430 L-ASC(SE06(TIT*,I.l>> 

440 CALL HCHAR(12,7+I,L> 

450 ICXT I 
460 RI-19 
470 CO-IO 

GOSUB 4000 
RI —16 
500 CO—1B 
310 fi-4 

320 SOSUB 4100 

530 CALL CH/»(132,-00FFFFFFFFFFFFFF"> 
340 CALL CHAR(133,"OOFEFEFEFEFEFEFE*I 
330 CALL CHAR(154,“OOFCFCFCFCFCFCFC * > 
* ' CALL CWW(133,-00F8F8F8FBFBFBF9"> 
CALL CHAR (136, -OOFOFOFOFOFOFOFO'> 
380 CALL CHAR ( 137, ■OOEOEOEOEOEOCOEO'» 
390 CALL CHAR ( 158, "OOCOCOCOCOCOCOCO" > 

600 call char( 139,-ooeoeoeosoeoBoeo*» 


CALL CDLOR(16.5, 1) 
FOR T—1 TO 30 b 
«XT T 


640 CALL CLEAfl 
630 PRINT -PREHI:-:: 

660 PRINT *1. PER LO SCONTO't! 

670 PRINT -2. PER L'INTERESSE SEfFLICE’i: 

680 PRINT *3. PER L’INTEREBBE COflPOSTO'n 
690 PRINT '4. PER IL POTERE D'ACQUISTO"a : : 

700 CALL KEY(0,K,5) 

710 IF S-0 T1CN 700 

720 IF <K<49) ♦ (K>32>*OEN 700 

730 K-K-40 

740 CM K GOTO 730,1680,2660,3460 

730 CALL O.EAR 

760 PRINT -SCONTO":: 

770 CALL HCHAR(24, 3, 132,281 
780 PRINT amili::! 

790 RI-16 
BOO CO-6 
B10 n-3 
020 GOSUB 4100 
030 RI-20 
840 CO-14 
030 SOSUB 4000 
860 Rl-17 
070 CO-22 
980 fi—4 

090 SOSUB 4100 

900 PRINT TAB(4)1-PREZZO SCONTO COSTO-: : 

910 PRINT -COSA VUOI COKBSCERE?" 

920 PRINT *1, PREZZO-1 '2, SC0NT0*«-3. COSTO-:*4. TASSO DI SCONTO 
930 INPUT -SCELTA n. “iN 
940 PRINT 

930 IF OKI >♦ (N>4)TFEN 960 ELSE 980 
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960 PRINT ■ ERRORE 1 RIPROVA.“: : 

970 BOTO 930 

980 04 N GOTO 990.1160,1330.1300 

990 INPUT “CONOSCI LO SCONTO? (9/N) “iRJSP* 

1000 IF S£OS(RISP», 1,1K>*S- THEN 1100 

1010 ITPUT “SCONTO » L. *«SC 

1020 INPUT “CONOSCI IL COSTO? (S/N) " !RISP» 

IF SEQKRISP*,!, i><>“9" THEN 1070 
IWniT “COSTO - L. “cC 
1030 PR-SC+C 
1040 BOTO 1130 

1070 IICUT “TAS90 DI 9CONTO (7.1 - *:R 

1060 PR-SC410O/R 

1090 BOTO 1130 

1100 INPUT "COSTO - L. “:C 

DIO UPUT “TASSO DI SCONTO (71 - *:R 

1120 PR-1NT(C»100/(100-R>) 

1130 PRINT : s “ IL PREZZO, SENZA LO SCONTO, “ 5 “E ' s * : I 
IMO PRINT TAB (0) I "L. “;Pfir : : 

USO BOTO 4320 

1140 UPUT “CONOSCI IL PREZZO? (S/N) “iRISPS 

1170 IF S£6*(RISP», l, 1)-“S* TTCN 1220 

1180 ITCUT “COSTO - C. “:C 

1190 KPUT -TASSO DI SCONTO (7) « “jfi 

1200 SC-tNT(C*R/(10O-R>) 

1210 BOTO 1300 

1220 ITCOT “PREZZO - L. * : PR 

IfPUT “CONOSCI IL COST07 (S/N) “:RISP* 

IF SE6*(RISP8,1,11-“S“ TTCN 1290 
1230 INPUT -TASSO DI SCONTO (X) - “«R 
1240 SC-INT(PR*R/100) 

1270 GOTO 1300 

1280 INPUT “COSTO - L. “:C 

1290 SC-PR-C 

1300 PRINT : : “LO SCONTO E' DIl*i« 

1310 PRINT TAB(8) ; “L. “ISCi : : 

1320 GOTO 4320 

1330 HPUT “CONOSCI IL PREZZO? (9/N) “>RI3P* 

1340 IF SEB*(RISP8,1, 1)-“S“ THEN 1390 
1330 IMHJT “SCONTO - L. “:SC 
1340 1IPUT “TAS90 DI SCONTO (*> - “«R 
1370 C-INT(SC*(100-R>/R) 

1380 GOTO 1470 

1390 1TPUT “PREZZO - L.“lPR 

MOO ITTUT “CONOSCI LO SCONTO? (S/N) “:RISP* 

MIO IF 9E044RISP»,l,I)-"S“ THEN 1430 
I4PUT “TASSO DI SCONTO (7) - “iR 
C-INT(PR4(ÌOO-R)/100) 

1440 GOTO 1470 

jìjffiJT^SCONTO - L.*:SC 

1470 PRINT ss “IL COSTO E“ DIi*:i 
1480 PRINT TA8(G)1”L. “(Cu i 
1490 GOTO 4320 

1300 ITCUT “CONOSCI IL PREZZO? (S/N) “:RISP« 

1310 IF SEB*(RISP*, I, 1)p-S* TTCN 1360 
1320 ISPUT “SCONTO - L.“»SC 
1330 IKPUT “COSTO - L. “:C 
1340 R-lNT(10O*SC/(SC-H:>» 

1330 GOTO 1630 

1360 1IPUT “PREZZO - L.“:PR 

1370 1TCUT “CONOSCI LO SCOTTO? (S/N) “tRlSP* 

1380 IF SE5*(RISP», 1, D-'S" TTCN 1620 
1390 ITCUT -COSTO - L. “:C 
1400 RMNT ( 10*(I0O-C4100/PR))/IO 
1410 GOTO 1630 

1620 IWHJT “SCONTO - L.“jSC 
1630 R-INT(1000*SC/PR)/10 
1440 PRINT 

1430 PRINT “IL TASSO DI SCONTO E* IL:*»: 

1440 PRINT TABU)) )Rj “Z“« 11 
1670 GOTO 4320 
1680 CALL CLEAR 

1690 PRINT “INTERESSE SEW>LICE"tr 
1700 CALL HCHAR(24,3,1S2.2B) 

1710 PRINT 
1720 RI>I7 
1730 CD-4 
1740 H-4 

SOSUB 4100 
RI -20 
1770 CO 14 
1780 GOSUB 4000 
1790 R!>!6 
1900 C022 
1910 03 
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DO SUB 4 100 

PRINT "CAPITALE INTERE95E MONTANTE": ? 

PR1NT -PUR RESTANDO QUESTA TERMINO--:"LOGIA IL PROQRArWA PUÒ" ES-“ 
PRINT -9ERE UTILIZZATO IN TUTTI I":“PROBLEMI NEI QUALI C’E' UN“ 
PRINT “AUMENTO PERCENTUALE. 


PRINT “COSA VUOI CONOSCERE?' 
- “APITALE-: "2. INTI 


•I. CAPII. __ 
-SCELTA n. 


' : N 


PRINT 
INPUT 
PRINT 

IF (W<U» (N>4 )DCW 1920 ELSE 1940 
PRINT “ERRORE! RIPROVA.":: 

BOTO 1090 

ON N 0OTO 1990.213 0,2310,2 490 

IWUT “CONOSCI L* IN TE R E S SE ?(S/N) “iftISPt 

IF BEO»(RI9P4,1.11 «"9“ T>CN 2010 


INTERESSE":"3. MONTANTE": "A. TASSO D'INTERESSE- 


INPUT 

INPUT 


§ 240 
250 
2260 
2270 
2200 
2290 
2300 
2310 
2320 
2330 
2340 
2330 
2360 
2370 
2390 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2400 
2490 
2500 
2510 
2320 
2330 
2540 
2530 
2360 
2570 
2380 
2390 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 


- - •• — ■ • » i * ” » 

"MONTANTE - L. ": PIO 

__ "TASSO D'INTERESSE «X) - ":R 

CA-INT(M0»100/ 1 100?R)) 

BOTO 2090_ 

INVI "INTERESSE - L. "l IN 

IWUT "CONOSCI IL MONTANTE? (9/N) ":RISP* 

IF SEB»(RISP«.1. 1)-"B " THEN 2070 

innrr -tasso 6*Interesse - l.-:r 

CA—INT I IN.I00/R) 

BOTO 2090 

INPUT "MONTANTE - L.'lMO 

CA-«J-IN 

PRINT 

PRINT "IL CAPITALE INIZIALE E’ Dl:"n 
PRINT TAB(B>|"L."ICA:<: 

BOTO 4320 

INPUT "CONOSCI IL CAPI TALE?<S/N)":RISP* 
IP SEB> (R19PF.1. 1)«"S" THEN 2190 
INPUT "MONTANTE - L.":MO 
IFPUT "TASSO D'INTERESSE (X) - ":R 
IN-INT(MOrt/(lO0*R) I 
GOTO 2270 

INPUT "CAPITALE • L.’iCA 
II^UT "CONOSCI IL MONTANTE - ’(S/N) ":RISP4 
IF SEB4IRISP*.1.l)-"S" THEN 2250 
INPUT "TASSO f>’ INTERESSE (X) - ":R 
IN.INT(CA-R/IOO) 

GOTO 2270 

INPUT "MONTANTE - L."IMO 
tN-INT (M0.1000/CA) /10-100 
PRINT 

PRINT "L’INTERESSE E” DIt"s: 

PRINT TAB (8) I "I_INr : i 

GOTO 4320 

INPUT "CWOSCI IL CAPITALE?(S/N) " : RISP6 
IF SEG»(RISP*.I, 1)«"S" TVCN 2370 
INPUT "INTERESSE - L. ": IN 
INPUT "TASSO D'INTERESSE (7.) - ")R 
MO» INT ( IN» ( 1CKH-R) /R) > 

GOTO 2450 

INPUT "CAPITALE « L.’lCA 

INPUT 'CONOSCI L’INTERCBSC?)0/N) ":RIBP* 
IF SEG»(RI9P».l,I)-"9" THEN 2430 

input -tasso D’Interesse <x> - -ir 

MO-INT(CA*<1OO+RI/100) 

GOTO 2450 

INPUT "INTERESSE - L.-iIN 

no«C A* IN 

PRINT 

PRINT "IL MONTANTE E' DIi":s 
PRINT TAB IG> | ”L. " )MOi t J 
BOTO 4320 

INPUT "CONOSCI IL CAPITALE?(S/N) ":R1SP6 

IF BEG«(RISP». l-l)."3" T>«N 2530 

INPUT "INTERESSE - L."iIN 

INPUT "MONTANTE - L.">MO 

R-INT ( 1000*1 / (Pf—I ) I /10 

GOTO 2630 

INPUT "CAPITALE - L.";C A 

INPUT "CONOSCI L' INTERESSE -5 (S/N) ":R1SP* 

IF SEG4 (RISPFjl, 1 > »"S" Tt«N 2610 

INPUT "MONTANTE - L.’iMO 

A-INT(IOOO.HO/CA)/10-100 

BOTO 2630 

IPFUT "INTERESSE - L. "iIN 
R-INT(1000*1N/CA)/IO 

PRINT t ■ "IL TASSO D'INTERESSE E" DELi’ii 
PRINT TAB(B)*R!"2"s: I 
BOTO 4320 
CALL CLEAR 

PRINT "INTERESSE COMPOSTO")j 
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COLL HCHAKtZA, 3. 152,28) 

PRINT : : i : 11 : : : : 

AI-20 
10 CD-3 

GOSUB 4000 
RI-19 
CO* 10 

__ n-2 

6*0 GOSUB 4100 
R1-1B 
CO-17 
R-3 

GOSUB 4100 
|l0 RI-16 
CO-24 
n-3 

GOSUB 4100 

PAINT "CAPITALE* I TAB (211 l"MMTANTE":: 

IW>UT -CAPITALE - L-":CA 
70 IF^UT -TASSO 0'INTERESSE (XI- *:R 
“ R-R/lOO 

INPUT -GIORNI - “:0 

If^UT -MESI - -:M 

910 INPUT -ANNI - *|T 

T-T-H/12+0/363 

KE'UT -QUANTE VOLTE ALL'ANNO VIENE CONPOSTO L’INTERESSE-» ":V 
H0-F1W 
PAINT 

PAINT - AL TERNI NE DEL PERIODO SU": * INDICATO, IL CAPITALE E' DI-“ 
70 PRINT "VENTATO:":: 

‘ PAINT TAB<6> 1-L. *1 INT(NO) : : : 

PAINT -VUOI IL GRAFICO (¥#(0 PER":-A»*r> (S/N)- 
tOO CALL KEYIO.K.SI 
DIO IF S-0 THEN 3000 
■■ IF K-83 THEN 3030 
IF K-70 TFEN 4320 
BOTO 3000 
PAINT 

UTUT 'SCRIVI L'ANNO INIZIALE: "t INI Z 
§70 PRINT 

' U l£NtSTMUmim4 TWEN 3090 ELSE 3110 

PAINT -ERRORE' RIPROVA":: 

GOTO 3060 
110 CALL CLEAR 
120 U-NO/24 

! 30 FINE-T 

40 POR T-0 TO INTIFINE) 

30 RIP-INT1FWI/U) 

1*0 RESTO-FNN—RIP4U 

170 RESTO-INT (RESTO-B/UI 

Ì80 PRINT STR» (INIZITI 

ITO CALL HCHAR123.B,132.R1PI 

aóo (F RESTO-O THEN 3226 

210 CALL HCHAR(23,B+RIP, 160-RE9TQ) 

- ICXT T 

ir Flnc-INT(FINEITI«N 3310 
240 RIP-INT(P1D/U) 

RESTO—re—R IP HJ 
RESTO—IMT (RESTO—0/U1 
PAINT STR*(1HIZ4T) 

CALL HCHAR<Z3,8,132.RIP) 

IF RESTO—O THEN 331Ò 
CALL HCHAR(23,0+R1P, 160-REST0) 

310 PRINT 

— PAINT -VUOI LA TABELLA? (S/N>* 

CALL KEY(O.K.S) 

IF S-0 THEN 3330 
IF K-B3 TICN 3300 
_ IP R—70 T>CN 4320 
70 BOTO 3330 

~ CALL WMAR(23.1.32.64) 

FOR T-0 TO TmTÌFII«> 

PRINT 5TRA(INIZ-TI|TAB(6*I"L.*IINT(FNN) 

410 NEXT T 

“ IF FIIE-INT (FINE) THEN 34 40 _ 

PRINT OTRB(INIZ-T1|TAB(6)?"L."IINT(MOi 
PRINT :i 
BOTO 4320 


470 


PAINT C -POTERE DI ACQUISTO":: 


CALL HOtAR<24,3, 132,20) 

490 PRINT ::: . . 

300 PAINT • A e-urna dal 1’in«la 2 lana 11": "potar» d'acquisto dalla lira 
310 PAINT -dlainuisc» oqnt anno.":" Chi rial 1973 guadagnava 000 
[3320 PRINT "alla lira, aggi dovrabba guadagnar» 2 Bilioni » 700 «ila 
avara una »tip*n-"i-die 


L3S30 PRINT 'lira, par avara 


la aguivalanta. 
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PAINT " 9p»clficando i dua anni da confrontar» «il capitala 
PR1NT "ralativo ad uno di ammt, il prograraaa calcola la lira 
PAINT "qui vaianti, cioa' avanti lo alammo potar* d’acquiato. 
PAINT TaB( 6)|“- praail un tamto 
BOSUB 3960 

PRINT “Sana, continuiamo.s 
IF FLAG* 1 THEN 3670 

DATA 3.696,3.a.3.079.4.322.3.747,3.179,2-699 

DATA 2.291,2.02,1.738. 1.461,1.220, 1,-096 

POR 1-0 TO 13 

READ COEFFU) 

ne*T t 

FLAG-1 

PRINT “GLI ArMI CONSIDERATI VAWIO DAL 1970 AL 1983. *>! 

1«VT -CAPITALE DI L.-sCA 
IWUT H 0EU-'AM«? -iMilOI 
PRINT 

IF (ANFGl< 1970) * (ATM01 >1983) THEN 3720 ELSE 3740 

PAINT "ERRtFE ' NON E' COWRESO NEL PERIODO CONSIDERATO, "s i 

GOTO 3690 

INPUT ‘CALCOLO DELLE LIRE EQUIVALENTI tCU-’AC*®? -rAW02 
PAINT 

IF <A*W02<l?70>*<AM*J2>1983)Tro* 3770 ELSE 3790 

PAINT -ERRORE' NON E' COMPRESO NEL PERIODO CIWSIDERATO. s 

GOTO 3740 

(1-lNT <C0EFF<Al*C2-l970>*2+.3> 

RI-2I-H 

co-e 

CALL CLEAR 
GOSUB 4100 

M-1NTIC0EFF «ANNOI-19701*2*. 3) 

RI-2I-PI 
CO" 20 
GOSUB 4100 

PRINT TAB(6) ( Alato 11TABI 1 9) 5 A1W02 
PRINT 

PRINT -L.-lCA. 

CA-CA#COEFF (ANNOI -1970) /COEFF IANN02-19701 

CA-INT(CA/10)*10 

PRINT "L.'tCA 

PRINT -luguala potar» di acquiatol*i: : 

GOTO 4320 
CALL KEYIO.K.S) 

IF S-0 T1CN 3960 
CALL HCHAR(23,3,32.28) 

RETURN 

FM I"l TO 6 

v-co*i-i 

IF 104 TPCN 4030 
R"l 

CALL HCHARIRI,V,I43*I-R) 

CALL HCHAR (R!*1,Y, I35+I-R) 

CALL HCHWt<RI»2,y, I27»I-R> 

(«UT 1 
RETURN 
R«Q 

FOR 1-1 TO 6 

IF 104 THEN 4140 

R«i 

CALL HCHAR(RI,CO*I-l, 143*I-R> 

CALL HCHAR(R!*l,CO*I-I,133*1-R) 

NEXT I 

Rl-RI+2 

R2-R 1*11-2 

FOR RISA-RI TO R2 

CALL HCHAR(RIGA,CO,141) 

CALL HCHAR(RIGA,CO*l,133,3) 

CALL HCHAR(RIGA,C0*4,142) 

CALL HCHAR(RIGA,CD*3,143» 

NEXT RIGA 
R-0 

FOR 1-1 TO 6 
IF 104 T«N 4290 
R»1 

CALL HCHAR(R2*t,C0-I-l, 127+I-R) 

NEXT I 
RETURN 

PAINT TAB(4)«-VU0I CONTIMJARE? (S/N) 

CALL KEVC0.K.5) 

IF S-0 THEKI 4330 
IF K«B3 THEN 640 
IF tc-7B 1>CN «380 
GOTO «330 
CALL CLEAR 
END 


MATEMATICA ELEMENTARE 


33 


Alla linea 150 viene dimensionalo il vettore COEFF con i coefficienti per 
determinare le tire equivalenti. 

Mancando l'istruzione OPTION BASE, la base 4 lo zero; COEFRO) i il 
aefTtdente del 1970, COEFR1) quello del 1971, e cosi via. Da 160 a 380 
a definiscono i carni ieri per designare le monete. L'immagine è creata 
da due routine (4000 e 4100), la prima per una sola moneta, la seconda 
po’ più di una moneta. Le variabili RI, CO, M sono rispettivamente nu¬ 
mero di riga e di colonna dell’angolo in alto a sinistra deH’immagine e 
[ramerò di monete. 

D programmatore, spedficando queste tre variabili prima del GOSUB, 
ottiene l’immagine come e dove desidera. I caratteri per il diagramma a 
strisce sono definiti alle linee 530-610. 11 ciclo FOR-NEXT seguente ha il 
sanplicc scopo di far restare l’inunaginc del titolo per qualche istante 
stillo schermo. Le prime due sezioni prevedono il calcolo di quattro va¬ 
riabili, ognuna delle quali può essere trovata conoscendo almeno due 
delle altre; sse sono pertanto strutturate in base ai diversi dati in input 
che si possono avere. 

Quando una domanda prevede una risposta del tipo (S/N), per non ap¬ 
presati tire il programma, si considera affermativa la risposta S (maiu¬ 
scolo) o anche SI, per esteso; tutte le altre lettere vengono accettate e 
considerate una negazione. 

Alle righe 2890-292D viene chiesto il tempo per calcolare un interesse 
composto; si può specificare la durata in giorni, mesi c anni; il lutto è 
poi ridono ad anni . 

Dalla riga 3110 alla 3460 c’i la stampa del grafico, anno per anno, che 
rappresenta un capitale al quale i applicato un interesse composto. MO 
i il montante o il capitale finale, U è il valore unitario di un carattere (6 
pud). Prima di cambiare il contenuto della variabile T, esso viene me¬ 
morizzalo in FINE (riga 3130). Per permettere la scrittura degli anni in 
oorrispondenza delle strisce che formano il grafico, queste sono orizzon¬ 
tali. Viene prima stampata una parte multipla di U; RIP (linea 3150) in¬ 
dica le ripetizioni del caranere “pieno"; infine si stampa un carattere 
che rappresenta una frazione di U e che completa la striscia. RESTO (li¬ 
nee 3160-3170) i una variabile che indica se questo ultimo carattere deve 
essere lungo 1, 2, 3,... 7 pixel. Se RESTO = 0, ovviamente non si stam¬ 
pi nessun altro carattere. 

Ricordo ancore, pe finire, che la forma IF (...) + (...) THEN... che si 
trova in akune istruzioni del programma, simula l'Istruzione IF... OR... 
THEN... che non è disponibile nel TI Basic. 

La mamma impiegata t di 10,3 Kbyte. 
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Geometria elementare 


Il Baratro pi greco 

Come i nolo dalla geometria elementare il rapporto ira la circonferenza 
e il diametro i un numero che viene indicato con la lettera pi greco. 
L’irrazionalilà di ri stala dimostrata per la prima volta da J.H. Lam¬ 
bert (1728-77), tuttavia in precedenza era gii noto il suo sviluppo deci¬ 
male fino a qualche centinaio di cifre dopo la virgola. 

II programma fornisce due metodi per ottenere lo sviluppo decimale di 
ir. Il primo si basa su un'espressione trovata dal matematico inglese J. 
Wallis. La formula consiste in una serie infinita di prodotti di numeri 
razionali: 



11 secondo metodo si basa sulla considerazione che la misura del perime¬ 
tro di un poligono inscrìtto, di n lari, tende alla circonferenza per a— od. 
Se L, indica la lunghezza dì un lato di un poligono inscrìtto di n lati, al¬ 
lora il lato del poligono inscrìtto di 2n lati è daio dalla formula: 



Dato un cerchio di raggio unitario, il lato del quadrato inscritto à uguale 
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t a/2; dalli fonnula segue che il lato dì un polìgono regolare dì otto la¬ 
ti, inscrìtto, è: 

Li = y/2 — yfl 

e dì sedia liti: 

L„ - >/25-V2 + V2 

Piti in generale: 

i^]"i = V 2 —V2+V2+ ••• 

dove nd secondo membro « 1 -1 radici quadrate, una interna all’altra. Il 
poimetro i dato dal prodotto tra il numero dei lati 2* ed £*,. Ponendo 
m = n-1 e dividendo per due si ottiene l'espressione 

P/2 = 2- V2-V2 + V2+ ... + 

con /n radici quadrate una interna all’altra, il cui limite è il numero t 
per m tendente all’infinito. 


100 REM CALCOLO DI PI GRECO 
UO REM 

120 REM VERSIONE: TI BASIC 
130 REM 

140 CALL CHAR (128,-007E242424242426") 

ISO CALL CLEAF 

160 PRINT “PREMI : : 

170 PRINT -I. PER IL METODO DI WALLIS":: 

100 PRINT "2. PER IL METODO DEI POLIGO-“:“ NI IN9CRITT1 M : : : : 

190 PRINT PER FINIRE PREMI FCTNC4) 

200 CALL KEYtO.K.S) 

210 1F S-0 THEN 200 
220 IF K-49 ThCM 250 
230 1F K*SO THEN 540 
240 BOTO 200 
250 CALL CLEAR 

260 PRINT “ Il Mtcutico ing leve John*: “Mal 1 i% (1616-1703) ha dato" 
270 PRINT -la seguente eipr(»lon», che-:"contiene un prodotto 
280 PRINT *t0«“IS 

290 PRINT Cm»tl2e);V2-<2/l>*<2/3>*<4/3>*(4/5)«" 

300 PRINT TAB(5);“(6/5)*<6/7)•<0/7>:: 

310 60SUB 910 

320 PRINT * Il valore di Pi Greco vie-":"ne calcolato per succeaaive" 
330 PRINT '‘approvai maz ioni , " : “ Alla pressione di un taeto" 

340 PRINT "al prodotto ei aggi una# un'*: "altro f attere. 

330 PRINT " Per finire premere lo zero"::: 

360 A-2 
370 P-l 
3B0 1-0 

390 CALL KEYCO.K.S) 

400 IF S-0 DCN 390 
410 IF K»49 THÌN 100 
420 !-!♦! 

430 P*P*A/(A-1) 

440 PRINT STRBCM*) 

450 CALL KEY40-K.9) 

460 IF 9-0 T)CN 450 
470 IF K-40 THEN 100 
4SO I-I ♦ I 
490 P-P«A/(A+1) 

500 PRINT 9TR*<!>*"> 

510 A«A+2 
520 PRINT 


•;CHR4(120)I * <*I2«P 


fCtffi*(120)l" >"12aP 
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330 

540 

550 

360 

370 

300 

390 

600 

610 

620 

630 

640 

630 

660 

670 

600 

690 

700 

710 

720 

730 

740 

730 

760 

770 

780 

790 

000 

810 

020 

030 

040 

050 

060 

070 

000 

090 

900 

910 

920 

930 

940 

930 


GOTO 390 
COLL CLEAR 

PRINT " Il numero " 1 CHR» ( 120> ? “ ti può' deter-** 

PRINT "minare calcolando il rappor-":"to R tra il perimetro di un 
PRINT 1 gono inmeri tto In una" : "ci rconTtrenza e il diametro.** 

£5! N I Z Aumentando il numero dei “j "lati. R tende * M jCHR* C120) ; " 
C05UB 910 


PRINT 


Il programma calcola 1 a" :lunghezza del lato e del pe- 


PRINT "ri metro di un poligono rego-" : "Tare avente un numero di la 
PRINT j|ti esprimibile cpme potenza"? "dà 2, cioè* 4, 8, 16. ecc.” 


'scrivi 1'esponente di 
"N * "jN 


PRINT 
INPUT 
PRINT 

PRINT "htjmero dei lati:**:: 

PRINT "2 A, *jSTR*(N) l " -"|2 A N:: 

IF N>»2 THEN 710 

PRINT "NON ESISTE UN POLIGONO CON":"MENO DI 3 LATI'";: 

GOTO 630 
L“SQR(2 > 

1F N-2 THEN 700 
IF N»3 THEN 770 
FOR V-l TO N-3 
L-SQR(2+L> 

NEXT V 
L=SQR <2-L> 

P«2 A N*L 

PRINT "LATO «"IL 
PRINT "PERIMETRO - M lP:: 

PRINI "VALORE APPROSSIMATO PER DI-**:"FETT0 DI PI ©RECO: : s 

PRINT TA8<6);CHR»<128); - 

PRINT " - VUOI CONTINUARE^* (S/N) -- 

CALL KEY(O.K’.S) 

IF S“0 THEN 040 
IF K«03 THEN 090 
IF K-70 THEN 100 
GOTO 040 

CALL HCHAR(23,3,32,20) 

GOTO 630 

PRINT TAB(6>5"- premi un tasto —■ 

CALL kEY(O.K.S) 

IF S-0 THEN 920 
□all HCHAR *23,3,32,29) 

RETURN 


Alla linea 140 è definita il simbolo che rappresenti pi greco; segue il me¬ 
nù (150-190). Alla riga 360, dopo la presentazione, inizia l'algoritmo per 
il calcolo di T.con il metodo di Wallis. A è il numeratore delle frazioni 
che costituiscono i termini del prodotto infinito; il denominatore sarà al¬ 
ternativamente A-1 e A + 1. P è uguale a t/ 2; naturalmente il suo valore 
è approssimalo e il grado di approssimazione aumenta via via che il pro¬ 
gramma prosegue. I 4 un contatore che segna le iterazioni eseguile. 

Alla linea 640 inizia la sezione ove il calcolo di T|è fatto in base al peri¬ 
metro dei poligoni inscrìtti in una circonferenza. Poiché il numero dei 
lati di un poligono è espresso nella forma 2*. alla linea 640 si chiede il 
valore di N. Alla riga 670 c'è la stampa dd numero dei lati mentre nelle 
linee seguenti, fino alla 780, si esegue il calcolo della misura del lato e 
del perimetro. L'istruzione 890 ha lo scopo di cancellare l'ultima riga 
scritta sul video prima di continuare. 

L’uliima parte (linee 910-960) contiene una routine per il messaggio 
-premi un tasto-. 

Va aggiunto che con il metodo di Wallis si ottiene una doppia serie con¬ 
vergente formata da valori approssimati per eccesso e per difetto; per ot¬ 
tenere una approssimazione a meno di un centesimo è necessario com¬ 
piere quasi duecento iterazioni. Con il metodo dei poligoni è consigliabi¬ 
le attribuire ad N valori crescenti: 3, 4, S, 6,...; per N» 12 l’approssima- 
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ma Ti rine è gii inferiore ad un decimi lionesimo (10' T ). Per N >12, tutta¬ 
via. la misura del lato diventa molto piccola mentre aumentano i cidi di 
calcolo; il sommarsi di piccoli errori comporta un risultalo che non si 
avvicina più indefinitamente al valore reale di t ma che si discosta mag¬ 
giormente da esso. 

Ecco un esempio: 

RUN 


Scrivi l’iffiDncnta di 2 
N « S 

Nuaera d«i iati: 

2~S « 256 


LATO * .0243430766 


PERireTRO - 6.283027599 


VALO RE APPROSSIMATO PER DI¬ 
FETTO DI PI GRECO: 


3.1415138 


- VUOI CONTINUARE? tS/N) - 


Tempo di esecuzione; 3 secondi. 

D volarne del cono 

Il volume del cono si trova con la nota formula: /t^x A/3. Da un pun¬ 
to di vista didattico è utile mostrare come si giunga ad una formula o al¬ 
meno verificare in qualche modo la sua esattezza. Ad un livello elemen¬ 
tare, dopo aver esaminato il volume del cilindro, usando dei modelli ma¬ 
teriali si potrà osservare che un contenitore di forma conica ha una ca¬ 
pacità tre volte inferiore di un altro, a forma cilindrica, avente la stessa 
base e la stessa altezza. 

Seguendo un ragionamento più propriamente matematico, si possono in¬ 
scrivere nel cono innumerevoli cilindri sovrapposti (figura 4a). Detta A 
l’altezza del cono ed r il raggio della base, ogni cilindro inscritto avrà 
un'altezza x, corrispondente ad una pane ennesima di A, ed un raggio 
y = rxx/h (vedi figura 4b). 

11 volume di ogni cilindro inscritto i penanto: W - ry J x Ax. Con un 
integrale si potrebbe scrivere subito: 

v * io *> J d* = x j* A^dx = 


rr’x h 
3 
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(*) 



ottenendo la formula nota. 

Per tutto dò, tuttavia, non è necessario un computer. Diverso è il caso 
in cui si desideri mostrare come all'aumentare del numero dei cilindri in¬ 
scrìtti, o al diminuire di àx che dir a voglia, il toro volume complessivo 
si avvicina indefinitamente al volume del cono. 

É questo lo scopo del seguente programma. 


10C REM ... 

HO REM » 

120 REM • VOLUME DEL CONO 
130 REM ♦ 

HO REM 
150 REM DI SERGIO BORSARI 
160 REM VERSIONE: Tt BASIC 
170 CALL CLEAR 
ìao LET PG»3.H1392654 
190 C-UI 
200 GOSUB 1210 

210 CALL CHARI37,-OOOOOOOOFF-) 

220 FRI NT .... 

230 PR1NT 

240 FRINT “ VOLUME DEL CONO":: 

250 RRINT 

260 FOR T-l TO 1000 
270 MEXT T 
280 CALL CLEAR 

290 PRINT "IL VOLUTE DI l* CONO SI TRO-": "VA: : 

300 FRINT TAB(11):“BASE*H":: 

310 CALL HCHAft(23,13,37,61 
320 PRINT TABU4) | "3 f ': : 

330 PRINT -PER VERIFICARE IL RISULTATO":-POSSIAMO SOMMARE I VOLUMI DI 
340 PRINT "MOLTI CILINDRI INSCRITTI.-:-MAGGIORE E' IL NUCRO DEI ■ 

350 PRINT "CILINDRI, PIU’ IL LORO VOLU-":“TE COMPLESSIVO TENDE A QUEL 
360 PRINT "LO DEL CONO.":: 

370 GOSUB 3610 
380 CALL CLEAR 

390 PRINT TAB111) : -RUWING": :::::: 

400 GOSUB 2140 
410 CALL CLEAR 
420 GOSUB 2050 

430 CALL CWAR19I.-080S0404020201FF-) 

440 C-5 

450 FR*="OSSERVA LA FIGURAI- 
460 FDR J-I TO LEN(FR9> 

470 F = ASC(SEGA <FR*,J,1)1 
400 CALL HCHAR(5,3+J,F) 

490 NE«T J 

500 GOSUB 1210 

510 CALL HCHAR<16,10,125) 

520 CALL HCHAR(16,11,124,2) 

530 CALL HCHAR <16,13,91) 

540 CALL HCHARU7.il, 80) 

550 CALL HCHAR<9,20,158) 

560 CALL HCHARUÒ,2Ò, 159) 

570 CALL VCHAR(11,20,127,5) 

590 CALL HCHAR!16,20,1251 
590 CALL HCHAR<16,21,124,2) 
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600 CALL HCHAR <16, 23.9t> 

610 CALL HCHAR(13,23,136> 

620 CALL HQiftR 114.22, 1571 
630 CALL H&ARC 13,22, 156) 

640 CALL HCHAR<12,21,157) 

650 CALL HCHARC11,21,156) 

660 CALL HCHAR <14,17, 72) 

670 CALL HCHAR<14,18,4SI 
680 CALL HCHAR(14,19,89) 

690 CALL HCHAR ( 17,21,69) 

700 DATA 66, 65,03,84,65,32,85, 78,65, 32, 80,02, 79,00,79, 02,90,73,79,70,69,32 
710 RESTDRE 700 
720 POR J-6 TD 27 
730 READ L 

740 C*J_ HCHAR(21 ,J,L) 

750 HCXT J 

760 PR4*"H:R«* <H-Y> : X- 
770 FOR J-l TD LEN<PR*> 

780 P-ASC<SEG*(PR4. J, 1) > 

790 CALL HOtAR (23,15^J, P> 

B00 NEXT J 
810 PRINT t:: 

820 OOSUB 3610 
B30 CALL CLEAR 

040 PRINT "ORA CHE CALCOLARE IL RAGGIO DI OGNI CILINDRO” 

850 PRIMI -POSSIAMO TROVrfWE IL VOLUME COMPLESSIVO DEI CILINDRI.- 
B60 PRINT 

870 PRI NT - SUPPONIAMO N-20 E R-lO. • 

880 PRI NT 

890 OIM A(20,2) 

900 K-l 

910 INPUT -IN QUANTE PARTI VUOI SUDDIVIDERE L'ALTEZZA? A(K,1) 

920 DY»20/A(K,1> 

930 DEF X-Y/2 
940 A (K, 2) *0 

950 POR Y-20-DY TO DY STEP -DY 
960 A<K 1 2>-A(K»2)+X*X*DY*PG 
970 NEXT Y 
900 PRI NT 

990 PRI NT "N--!A(K, 1MTAB(12)I "V.CIL.-"IINT <A<K, 2>*1000>/lOOO 
1000 PRI NT 

1010 IWnJT "VUOI CONTINUARE? “:SI 
1020 IF SEGSO*, 1,1 ><>“S- TPCN 1070 
1030 PRI NT 
1040 K-K*l 

1050 IP K>20 T>«N 1070 
1060 GOTO 910 
1070 GOSUB 3320 
1080 PRINT -PREMI:” 

1090 PRINT 

PER RICOMINCIARE":* - 


• 1 . 


1100 PRINT __ 

1110 PRINT -2. PER CALCOLARE ANCORA I 
1120 PRINT "3. PER LA TABELLA DEI 
-4. PER LE CONCLUSIONI 
-5. PER FINIRE-:- • 


1130 PRINT 
1140 PRINT 
1150 JHHJT L 
1160 IF L-0 THEN 1190 
1170 IF L>4 THEN 1190 
1100 Oi L GOTO 170,900,1070,3500 
1190 END 

1200 REM ***FIG. :CO40»** 

1210 CALL CHAR ( 120, "20100C0300000000-) 


VOLUMI-e• • 
RISULTATI-:' 


1250 CALL CHAR(I32,"EOIFOOOOOOO00000“> 

1260 CALL CHAR<133,- 

1270 CALL CHAR1134, 

1200 CALL CHAR<135, 

1290 CALL CHAR(136,"FOOOOOOOOOOOOOOO") 
1300 CALL CHAR(137,-OOOOOOOOOOOOOOOF-) 
1310 CALL CHARU30,-0000000003lC£000-> 
1320 CALL CHARC139,-0204106080000000"> 
1330 CALL CHAR(140,-000000601B04O201 - ) 
1340 CALL CHAR(141,"EOICO30000000000“) 
1350 CALL CHAR(I42,-OOOOOOOOOOOOFOOF-» 
1360 CALL CHAR(143,"0OOOOOOOOOFCO300"> 
1370 CALL CHARC144,-OOOOOOOOFEOIOOOO-) 


1410 CALL CHAR C 140, ”8000000000000000"> 
1420 CALL CHAR(149,-03lCEOOOOOOOOOOO-> 
1430 CALL CHAR <150,"080810132C306040") 
1440 CALL CHAR( 151,"080884641AQ603FF*’) 
1450 CALL CHAR(152,-E01C0300000000FF-1 





2260 CALL CHARU03,-BOBOBOBO0OBO8O78'> 
2270 CALL CHAR(104,*01010101010101IE"> 
2280 CALL CHARc 103, ■OOOOOOOIOE7080FO" ) 
22*?0 CALL CHARU06, *87eiBO8OeO0OBO8O-) 
7300 CALL CHARl 107, *07E01FOOOOOOOOOO" ) 
2310 CALL CWRIIOS.-COIFOOFFOOOOOOOO-) 
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DOMI«-'COME SI TROVA IL RAGGIO DI* 
FOR J-J TO LEN(DOMII) 

0-ASC(SEG*(DOMI*.J.I)> 

CALI MCHAR(20,2»J.D> 

FEXT J 

MM2R--OGNI CILINDRO'’" 

FOR J«l TO LEN(DO)12«> 

DO-ASC ( SEG» ( D0M2». J. I M 
CALL HCHAR(2l,2*J.00> 

NE X T J 
GOSUB 3410 
CALL CLEAR 
RETURN 

REM «».TABELLA VOLUMI**» 

CALL CLEAR 


NUMERO 

SUDDIVISIONI 


VOLUTC" 

CILINDRI* 


PRINT * TABELLA DEI RISULTATI“ 

PRINT ’-• 

PRINT 

PRINT * NUMERO VOLUTC" 

PRINT * SUDDIVISIONI C1LINDRI* 

PRINT "-- 

PRINT 

FOR J-I TO K 

PRINT A(J,1);TAB(19)IINT(A<J,2)*10001/1000 

NEH J 

PRINT 

PRINT * VOLUTE DEL CONO— 2094.393* 

PRINT ss 
GOSUB 3410 
CALL CLEAR 
RETURN 

REM ♦*»CONCLUSIONE**« 

CALL CLEAR 

PRINT * AUMENTANDO IL NUTtRO DEI CILINDRI INSCRITTI IL LORO 

print "volutc complessivo si avvi-- 

PRINT -CINA SEPPRC PIU' AL VALORE* : s TAB (11)) *2094.393 .*:l 
PRINT * VERIFICA C* TALE VALORE RAPPRESENTA 1/3 DEL VOLUTE: 
PRINT -DEL CILINDRO AVENTE LA STES-* 

PRINT "SA BASE E LA STESSA ALTEZZA DEL CONO* 

PRINT ssss 
GOSUB 3410 
CALL CLEAR 
DOTO 1080 

PRINT TAB<3>>"(PREMI 1 PER CONTINUARE) * 

CALL KEYtO.KK.S) 

IF S-0 THEN 3420 
RETURN 


Nella pane ioziale viene introdotto il problema con una grafica ad alta 
risoluzione. Le voluminose routine 1200 e 2130 sono adibite appunto al¬ 
la creazione delle immagini del cono e del plurìcilindro inscritto. Le 
istruzioni DATA (linee 2860-2880 e 2960-3010) contengono i numeri di 
riga, di colonna e di carattere per le successive CALL HCHAR. 

Alia linea 910 viene chiesto in quante pani si vuole suddividere l’altezza. 
Il numero è memorizzalo nella matrice A(K.I), dimensionata con K = 20; 
K indica il numero di prove effettuate o, più propriamente, è il numero 
dì record; in ogni record, il campo 1 contiene il numero di pani in cui è 
stata suddivisa l'altezza del cono, mentre 2 contiene il volume del pluri- 
dlindro inscrìtto. Alla linea 920, DY è l’ennesima pane dell’altezza del 
cono, mentre alla riga seguente, X è il raggio deU’i-esimo cilindro inscrìt¬ 
to. Y è la sua distanza dal venice. Il ciclo FOR-NEXT alle linee 960-970 
calcola il volume del plurìcilindro inscrìtto. 

L’operazione può essere ripetuta suddividendo l’altezza in 10, 20, 30,... 
100 o più parti. Quando non si intende proseguire oltre, i dati fino ad 
allora raccolti vengono tabulati e confrontati con il volume del cono 
(routine 3310). La sezione 3490-3600 contiene le conclusioni mentre le 
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ultime istruzioni sono una routine per il messaggio premi 1. per conti¬ 
nuare. 

Segue un esempio di utilizzazione. Il tempo impiegato è di 7 secondi ed 
aumenta proporzionalmente alle pani in cui è suddivisa l’altezza. 


RUN 

I- 


IN QUANTE PARTI VUOI SUDDI¬ 
VIDERE L'ALTEZZA? 40 

N - 40 V.CIL. - 2016.50? 

VUOI CONTIMJARE7 S 

IN QUANTE PARTI VUOI SUDDI¬ 
VIDERE L’ALTEZZA? 30 

N *= 50 V.CIL. « 2031.982 

VUOI CONTIMJARE? 


IL teorema di Pitagora 

Il teorema è fin troppo noto per essere trattato qui da un punto di vista 
matematico, in ogni caso il programma contiene una sezione in cui ven¬ 
gono Torniti gli elementi essenziali accompagnati da qualche rappresenta¬ 
zione grafica. Nella parte applicativa, viene data la misura di un cateto 
o dell’ipotcnusa dopo aver introdotto gli altri due elementi di un trian¬ 
golo rettangolo. Un pregio consiste nell’elaborazione non solo del risul¬ 
talo ma anche dei passaggi che conducono ad esso, il tutto presentato 
con la più appropriala simbologia ottenuta mediante la definizione di 
caratteri particolari. 

D programma i completato da una sezione che permette di verificare se 
tre numeri formano una terna pitagorica o di creare nuove teme a piaci¬ 
mento. 

Tre numeri: a, b, c, formano una terna pitagorica semplicemente quan¬ 
do è soddisfatta la condizione 

a' + b 1 = c 3 

Invece per creare una terna pitagorica si possono usare le seguenti for¬ 
mule: 


0 = 2 mn; b = m 3 -/» 3 ; c = m 3 + /i 3 


dove m ed n sono due numeri arbitrari tali che sia m>n. 
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670 CALL HCHARU4,16, 142) 
680 CALL HCHAAC13,14,138.2) 
690 CALL HCHAR(13, 16, MI) 
700 CALL HCHARC12,12,138,3) 
710 CALL HCHAR<12,17,142) 
720 CALL HCHAA(1I,10,136) 
730 CALL HCHARC11,11,136,6) 
740 CALL MCW»(11,17, 1411 
730 CALL HCHARI 10, 10, 137) 
760 CALL HCHAR(10, 11,138,7) 
770 CALL HCHARflO,1B.142) 
7B0 CALL HCHAR <9, il, 136) 

790 CALL MCHARC9.12,130,6) 
800 CALL HOVWI9,1B, 1411 
010 CALL HCHAR1B,11,137) 

020 CALL HCHAR<8,I2,138.3) 
B30 CALL HCHAR<B;i7, 139> 

040 CALL HCHAR(0,18, 140) 

B50 CALL HCHAR17,12,136) 

S60 CALL HCWRC7,13,130,2) 
870 CALL HCHAR17,15,139J 
Beo CALL )CHARC7,16,140) 

890 CALL HCHAR16.12,137) 

900 CALL )CHAR(6,13, 139) 

910 CALL MCHARC6, 14, 140) 

920 FOR R»12 TO 14 

930 CALL HCHAR (R, 7, 144, 3) 

940 «XT 8 

950 FOR R-15 TO 20 

960 CALL HCHAR (R, 10, 145,6) 
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970 NEXT R 

980 CALL HCHAR413,3,63) 

990 CALL HCHAR413,6,133) 

IOOO CALL HCHAR421,*2,66) 

1010 CALL HCHAR(21.13,155) 

1020 CALL HCHAR(6,16,67) 

1030 CALL HCHAR46.17,133) 

1040 FOR T-l TO 4ÒO 
1030 NEXT T 

1060 Q«-“A"S.Cm# ( 153) 6"*B"«.Cmt 4153) C-CLO^t ( 133> 

1070 FOR J-l TO LEN4Qt> 

1080 L-ABC49EGt4Q*,J.1)) 

1090 CALL HCMAR4l7,2Ò*J,L> 

1100 NEMT J 

1110 CALL COLORII?»16,7> 

1120 CALL HCHAR415,19,126,12) 

1130 CALL VCHAR416,19,126,3) 

1140 CALL VCHAR416,30,126,3) 

1150 CALL HCHAR419,19,126,12) 

1160 FOR 1-1 TQ 30 
1170 CALL COLOR412»7,16) 

1190 CALL COLOR(12,16,7) 

1190 next r 

1200 BD9UB 2590 

1210 CALL CLEAR 

1220 CALL COLOR413,9,1) 

1230 R-20 

1240 C-14 

1230 003UB 2300 

1260 CALL HCHAR<20,17,67) 

1270 LALL HCHAR421.12.63) 

1280 FRINT TAB<14>j"B*tìi 

1290 PRINT " C“lCT#*t <155)I"-A"lCHRt<153)I"♦B")CM4t 4135)« 
1300 PR1NT “ C- t 5CHR64132)I" A"|CHR«4155)1-♦B - lCMRt4133) 
1310 GOSUB 2650 

1320 PRINT ■ i " A"ICHRt 4155) |--C ,, fCHRt< 155)1 "-B-lCHRt 4133) f 
1330 PRINT * A-" |CHRt 4152) p *' C" iCWRt ( 135) I " - B M )CHRt 4 155) 

1340 GOSUB 2650 

1330 PRJNT il- B"1CHRt4133)I 
1360 PRINT - B-"ICHRt 4132>I" 

1370 GOSUB 2650 
1380 PRINT tu 
1390 GOSUB 2610 

1400 IF K-03 TKCN 560 ELSE 430 
1410 CALL CLEAR 
1420 PRINT n APPLICA7ÌONI "ti 
1430 CALL HCHAR<24,3,144,28) 

1440 PRINT ntmi 
1450 CALL COLOR 413,5,1) 

1460 R-20 
1470 C-13 
I4B0 GOSUB 2500 
1490 CALL HCHAR<21,13,65) 

1300 CALL HCHAR<20,10.67) 

1510 PRINT TAB4 lSM'B^l M 
1320 INPUT -COSA VUOI TROVARE** 

1330 PRINT 

- |390 

1660 
1730 

DEVI SCEGLIERE A,B":“OPPURE C, RIPETI "5 $ 


•-C” I CHRt < 133) I --A“ I CHRt 4153) I 
CI CHRt 4133) I "“A”I CHRt 4133) 


-ixt 


1540 IF Xt“”A" THEN 
1330 IF Xt-"B" THEN 
1360 IF Xt-"C" T)€N 
1370 PRINT -ERRORE 1 
1380 bUfO 1320 
1590 INPUT "B - ":W2 
1600 INPUT "C - •:«! 

1610 IF M2<U1 THEN 1640 _ 

1620 PRINT 1 1 -L’ IPOTENUSA DEVE ESSERE HAG-GICJRE DEL CATETO' RIPETI“m 
1630 GOTO 1390 
1640 Wt-"-“ 

1630 GOTO 1770 
1660 INPUT "A - ":W2 
1670 INPUT "C - *iWl 

1680 IF W2<WI THEN 1710 _ _ 

1690 PRINT t : -L' IPOTENUSA DEVE ESSERE MAG-GIORE DEL CATETO! RIPETI.*': » 
1700 GOTO 1660 
1710 Ut-"-* 

1720 GOTO 1770 
1730 II*njT -A - " : HI 
1740 INPUT -B • -:N2 
1730 Nt--4- 
1760 GOTO 1770 
1770 PRINT 1 1 

17B0 Zlt-9TRt 41NT4100»WI»M1 > /100)fcWt&STRt 4INT 41Q0*W2MJ2) /100) 

1790 IF Wt-'*+" TVCN 1Q20 

1800 Z2t-STRt(INT 4100* <W1*m~W2*W2>>7100) 

1010 GOTO 1B3Ò 

1020 Z2t-9TRt <INT 4100*4U|*U1+M2*N2)>/100> 
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PRINT TAB<9>iCHR*<153)« 

LL-LEN < Z 1 • > -1 
GOSUB 2600 

PRINT ” -JMl" - “iCHRff 
PRINT TAB<9>ICHR4(153)♦ 
LL-LEN<229)-1 


152)t Zl«?‘ 


”5INT(100*SPR(VAL( Z2»))>/lOO 


PITAGORICA":: 
PITAGORICHE"::j 


LL-LEN<Z29>-1 
G05UB 2600 

PRINT TABC6>;-- - iCHRt C I52> I Z2*| " ="S INT ( 100«*S(?R (VAL ( Z2*> ) > 
GOSUB 2610 

IF K-03 THEN MIO ELSE 450 
CALL CLEAR 

PRINT "TERNE PITAGORICA" i t 
CALL HCHAR(24,3,144,2B> 

PRINT si: 

PRINT "PREVI!a “li 

PRINT "1. PER VERIFICARE SE TRE“ 

PRINT ■ NUMERI FORMANO UNA TERNA”:" PITAGORICA":: 

PRINT ”2. PER CREARE NUOVE TERNE" : " PITAGORICHE": : j 
CALL KEY <0. K,S) 

IF 0-0 THEN 2010 
1F K-49 THEN 2060 
3F K-30 THEN 2290 
GOTO 2010 

PRINT "SCRIVI I TRE NUMERI * : : 

INPUT "NI • “:N<I) 

MAI“N <1> 

INPUT "N2 • " 1 N 12 ) 

INPUT “N3 - "iN(3) 

FOR r-2 TO 3 

IF N ( ! ) vMAX THEN 2M0 

MAX-N<!> 

NEXT I 
SG«0 

FOR 1-1 TO 3 

IF NdXnAX THEN 2200 

NQ-HAX A 2 

GOTO 2210 

S0-9O+N(I> 2 

NEXT I 

PRINT :i 

IF NO-SO THEN 2260 

PRINT "NO, 1 TRE NUMERI NON FORMANO"i"UNA TERNA PITAGORICA" 
GOTO 2270 

PRINT "SI, I TRE NUMERI FORMANO UNA*i“TERNA PITAGORICA" 
PRINT s;: 

GOTO 2400 

PRINT “SCRIVI DUE NUMERI <M>N)"i: 

INPUT "M - ":X1 
INPUT "N • “iW 
PRINT 

IF X1>X2 THEN 2360 

PRINT "ERRORE* DEVE ESSERE M>N.: 

GOTO 2300 
LL-6 

A-2»X1*X2 
LL-LL4LEN(STR9(A> > 

B-KI«X1-X2»X2 
LL*LL^LEN<STR9(B> > 

C-X1«X1^X2#X2 
LL-LL^LEN<STR*CCI) 

PRINT "I TRE NUMERI:"t: 

IF LL>26 THEN 2460 
PRINT TAB<(28-LLI/2>I 
PRINT AlBlCu 

PRINT "FORMANO UNA TERNA PITAGORICA”iii 
GOSUB 2610 

i IF K-83 THEN 1930 ELSE 4SO 
i CALL HCHAR<R,C,129) 
i CALL HCHAR<R,C+1,130) 

CALL HCHAR<R4l,C,120.2) 

CALL HCHAR <RM,C*2, l29) 

CALL HCHARCR-M,t>3 x l30) 

CALL HCHAR<R*2,C,120.4) 

CALL HCHAR <R+2,C*4,129) 

CALL HCHAR(R+2,C+3,130) 

RETURN 

PRINT TAB <5)IPREMI UN TASTO 
GOTO 2620 

PRINT " - VUOI RIPETERE? (S/N) 

CALL KEY <0,K.S) 

IF S-0 THEN 2620 
RETURN 

CALL HCHAR(22.20,133) 

> CALL HCHAR(22,21,154,3) 

» RETURN 

> FOR 3-1 TO LL 


♦1,C,120.2) 

41, C*2,129) 
M £431130) 

42, C,120.4) 


,21,154,3) 
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2f>90 PRINT TAB(9+I>ICHR*(134)! 

2700 NE UT I 

2710 PRtNT 

2720 RETURN 

2730 COLL CLEftR 

2740 END 


Ndia parie iniziale si susseguono il litoio (18040), la definizione dei ca¬ 
rnieri grafici (250-420) ed il meni) (460-500). ] caratteri degli insiemi 
numerici 13, 14 e 15, dal 128 al 145, servono alla creazione della classica 
figura che illustra il teorema di Pitagora. 1 caratteri 152, 153 e 154 costi¬ 
tuiscono il segno di radice quadrata; il 155 ì l’esponente 2. 

Le linee 160-200 e 1060-1100 sono un esempio di uno dei modi in cui 4 
possibile indirizzare una frase in una qualsiasi posizione dello schermo. 
Quoto 4 particolarmente utile quando sul video ci sono già delle imma¬ 
gini; con una istruzione PRINT queste verrebbero sospinte verso l'alto. 
Alla linea 1410 inizia la sezione dedicata alle applicazioni. Con la routi¬ 
ne 2500 si crea Timmagine di un triangolo che facilita la comprensione 
dei dati da introdurre. L'input dei dati 4 differenziato e dipende daU’eie- 
tnento che si vuol trovare: un cateto o l’ipotcnusa. W1 e W2 sono i due 
elementi noti, W$ indica se i loro quadrati vanno sommati o sottratti. Il 
messaggio alle linee 1620 e 1690 4 un esempio di come il programmatore 
debba prevedere «ammali errori; in questo caso si sarebbe ottenuto un 
radicando negativo. U calcolo non presenta difficoltà, la stampa e le 
istruzioni ad essa connesse occupano tutte le righe dalla 1770 alla 1900. 
Infatti, come 4 gii stato detto nella premessa, vengono dati anche i ri¬ 
sultali intermedi, come se si trattasse di una soluzione di tipo scolastico. 
I programmi didattici dedicali all’infanzia devono curare particolarmen¬ 
te la forma se vogliono essere chiari e facilmente comprensibili. 

Pct controllare se tre numeri formano una tema pitagorica, essi vengono 
memorizzati nel vettore Nili, in MAX si carica il maggiore di essi. Suc¬ 
cessivamente NQ 4 il quadrato di MAX (linea 2180) e SQ 4 la somma dei 
quadrati degli altri due (lìnea 2200). Ovviamente i tre numeri formano 
una tema pitagorica solo se 4 soddisfatta la condizione NQ= SQ (2230). 
Nelle linee 2290-2490 si crea una tema pitagorica; i tre numeri sono i ca- 
postipiti di una famiglia di infinite teme ottenibili con i loro multipli. 
D calcolo di LL e la successiva PRINT TAB di linea 2450 servono a cen¬ 
trare la scritta che dà il risultato. 

Seguono neU’ordine: 2500-2580, routine per il disegno di un triangolo 
rettangolo; per accedervi specificare R e C, rispettivamente numero di ri¬ 
ga e di colonna corrispondenti al vertice in alto a sinistra del triangolo. 
2590-2640, routine per inviare due differenti messaggi, il primo ottenibi¬ 
le con GOSUB 2590. il scamdo con GOSUB 2610. 2680-Z72D, routine 
per la stampa di quella parte del disegno di radice che non è in linea con 
il radicando e che deve essere lunga tanto da contenerlo. 
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Angoli c distanze 

Aristarco di Santo, contemporaneo di Euclide e conosciuto per la sua 
ipotesi eliocentrica, misurando l’angolo formato dalle congiungemi 
terra-luna e terra-sole durante una fase di mezza luna riusci a stabilire, 
in modo sia pur grossolanamente approssimato, il rapporto tra le distan¬ 
ze della luna c del sole dalla terra, deducendo che la seconda i enorme¬ 
mente più grande della prima. Un altro grande geografo ed astronomo 
del passato, Eratostene, basandosi ancora su misure angolari, riusci a 
stabilire la misura del raggio della terra con un errore del 15%. Grandi 
risultati per i mezzi a disposizione 2000 anni fa! 

La nostra esperienza quotidiana ci induce a sottovalutare le possibilità 
offerte dalle misure angolari, ma appena si esce dalle pareti domestiche 
non è difficile rendersi conto delle difficoltà insite nella misura diretta 
delle distanze. Quanto è alta quella casa o quella montagna? Quanto è 
lontana quella casa al di là del fiume? 0 addirittura, quam'è lontana la 
luna? Senza una misura angolare non si potrebbe avere alcuna risposta. 
É vero che gli strumenti adatti per misurare con precisione gli angoli 
non sono generalmente disponibili alla maggior pane delle persone, tut¬ 
tavia quello che è importante capire è il metodo da seguire piuttosto che 
utilizzarlo nella pratica. 

Interroghiamo il nostro TI 99/4A. Le prime due sezioni del programma 
trattano la conversione delle misure angolari da radianti gradi decimali a 
gradi sessagesimali e le quattro operazioni con gli angoli; premiamo 
quindi il tasto 3 per le applicazioni. Come misurare l’altezza di una ca¬ 
sa? Semplice. La parete forma con il suolo un angolo retto, quindi sce¬ 
gliamo il caso di un triangolo rettangolo. Supponiamo di trovarci a 10 
metri dalla casa (almeno una misura diretta è necessaria) e di osservare il 
tetto con un angolo di 35° rispetto al piano di base. Il computer dà 
un’altezza di 7 metri. 

11 calcolo è facile; detta h l’altezza, b la base e l'angolo, risulta ig 
a = h/b, da cui h = bx tg a. 

Similmente si potrebbe misurare il diametro della luna, nota la sua di¬ 
stanza e l’angolo sotto il quale appaiono gli estremi del disco. Con il TI 
99/4A è anche possibile il procedimento inverso e calcolare l’angolo no¬ 
te le misure lineari. 

Sotto quale angolo viene visto un regolo di un metro alla distanza di 200 
km? In metri, b = 200000. h - 1... la risposta è: 0° 0' 1.03*. I mo¬ 
derni astronomi riescono a misurare angoli ancora più piccoli! La cosa è 
stupefacente. 

Ancora possiamo conoscere la lunghezza del lato dì un triangolo qual¬ 
siasi (scaleno) sapendo la misura degli altri due lati e l’angolo compreso. 
Si utilizza la formula seguente: 
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c = ^Ja 1 + b i -7abx .cos a 

Per eseguire la mappa di un lerriiorio, a pane i metodi aerofotogram- 
metrici. ci si basa sulla triangolazione. U principio è stato introdotto 
dall'olandese Snellius nel XVII secolo. Un triangolo è completamente 
determinalo da un lato e dai due angoli adiacenti, cioè la conoscenza di 
questi tre elementi consente di dedurre tutti gli altri. 

Interroghiamo ancora il computer selezionando il tasto 4. a quale di¬ 
stanza si trova la casa al di là del fiume se, fissata una base di 10 metri, 
la si vede sotto i due angoli di 92° 0' 0' e 86° 30' 0*7 La risposta è 
381,3 m dall’estremo A e 381.78 dall’estremo B. E se una misura ango¬ 
lare è affetta da un errore di 30', qual è l’errore nel calcolo della distan¬ 
za? Riproviamo con gli angoli di 92° e 86°, questa volta le misure dan¬ 
no un valore di circa 286 m; la differenza con il precedente è di quasi 
100 m. 

Nel nostro rapportatore mezzo grado sembra un'inezia. Ci si rende con¬ 
io dell'estrema precisione richiesta in questo tipo di applicazioni. 

'Per il calcolo si ricorre al teorema dei seni. Con riferimento alla figura 
'3, sussiste la seguente relazione: 


C 



AB = BC = AC 
sen C sen A sen B 

ioti due angoli, è conosciuto anche il terzo poiché À +É+C = 180°. 
le è nota la base AB, risulta: 

„„ ABxsea À ABx senfi 

OC — -1— ; AC = -t— 

sen C sen C 
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Come ultima applicazione viene presentato un metodo disianziocnetneo, 
usato in campo topografico, detto ad angolo parallattico variabile cod 
stadia verticale. La stadia t un'asta graduata che generalmente va posta 
sul punto del quale si vuole conoscere la distanza. Essa va osservata a 
due differenti livelli con un ecclimetro o un teodolite, strumenti provvisti 
di canocchiale e cerchi goniometrici (vedi figura 6). Valgono le seguenti 
relazioni: 



Fio. e 


LtLi = dxtgati ; I#Lj = dxtga, 
Detta L la misura di LiL } , risulta: 



lgai-lg aj 


100 BEH ANGOLI E DISTANZE 

I IO PEn .. 

120 REM di Sergio Borsari! 

ITO REM TI BASIC 

HO CALL clear 

150 TI Tt='’ANGOL I E DISTANZE" 

160 PO* 1*1 TO LENITITI) 

170 L fc A5C<SEGfITITS,I,1>> 

180 CALL HCHAR<12,7-* I,L) 

190 NEXT I 

200 CALL CHARH2B, "OF") 

210 CALL CHAR(129,"FF") 

220 CALL CHARC130,"000000OOOOOOOFF-> 
2Z0 CALL CHAR <131,”OOOOOOOOOFF■) 

240 CALL CHAR(132,"OOOOOFF"> 

250 CALL CHAR(133,“OFF") 

260 CALL CHAR(133,"01010101010]0101") 




GEOMETRIA ELEMENTARE 


SI 


2?0 CALL CHAR< 136, *8060606080806080-1 
rflÒ CALL CHAftl 137, "00000000030C3F'F" 1 
-9J CALL CHARU38* "030C30COOFF20101*) 

SS 1 - 1 - CMA«(13V,"B0402FF02010lOlO-> 

$ g± gSK&^SSgmSgas;* 

SSSStaSSlJH'aHHK 

HO CALI. CHAR< 

360 CALL CMARl 
37C CALL CHAR ( 

380 CALL CHAR I 
390 CALL 
400 CALL 
«10 CALL 
«20 CALL 

«30 DEF BRA-R»S?.t 9577 Ó 5 Ì 3 ” 

«30 74533,232 

•§o EE ,NT 

ano pelSl ’i’ E* r !• Of>i dagli-:* angoli.-" 

«90 FAIUT o* r }• °PFF*iiont con gli":' angoli.":: 

so?» 4 : %Yr !: SP2Ji5“‘2?‘.-ì 8 r 



tipo di calcolo? i«/n>* 


Sto» •i : l ir ì* JWijSJS'K'uS^! 
li? cA 1 , rK E ?-,oXst ,n,r# - ,:i 

330 IF B»0 THE<I Ì20 

Iso K-K-«e -,,,+ ' K> * 3,THEN 520 

370 ^SlNT 15 ?^* 690,920. 1670,2990,3560 

3W SÌL T KÈvTo“^Ìr ,lÌOU "'* C °" qU " t °' : * 

600 IF S=0 TVCft è lo 

ìln !c !I*S1>*IT-1I31T1CN 360 
630 ^TÓ T WO , + <T " ,0,T * N 4S ° 

6«0 CALL CLEAft 
$1» 3ÌS^S.0NI-:, 

680 FRI NT -f^^goiof-l !“"***’ di •‘■"'••*»*n»lla guaio o' aapmmo- 

700 CAL^KÈy'lofTS? 1411 "*’ 2 ' Gft * DI 0ECIHALI- S *3. GRADI SESSAGESIMA!. I*i e 
710 IF S-0 TFCN 700 


ÀE t T ^£ 9 ÌÌ ( I >3J,T, « N 700 
730 UN T-«B GOTO 740,610,880 
740 INPUT -RADIANTI? -,r' 

770 «JgAA R; " ftflD “”l I NT < lOO<»6RA> /lOOOl CK»» ( 151 » : s 
780 GOSUB 3340 

eoo GST2 T 9Ì;'' eRAD, ' cw *“ 3,>,p " ,msCHR * <:j,, ' SEC ®®»*c«*‘i32» 

|**"» °“.7 " 16 
930 A-G 

8«0 GOSUB 3340 

oiS Si CVS?» ( 131 ) ( "« " | INT MOOOaRAD) / lOOOl -RAD- - • 

§$> GgTS T ?LÒ' ,BRODr,CHB4,,a,,,PR,Ml ' c ’* > *<”> » secatili ioni 1321 

880 GOSUB 3400 

«s ; issai ^ssì ts ‘ * * 

920 CALL CLEAR 

SS »^ 2,0NI '" 

s s 

98? CALL KE^O^Sl^ 1 ^' 0 *'’' 4 - “«VISIO*-,. 

990 (F S-0 THEfi $60 
OOO IF (T<49) + <T>321THEN 9HO 
1020 Melalo™ ,02 °* >290, 1410, 1350 
1030 PRINT 
1040 GOSUB 3310 
1030 SOnfW-O 
*660 IF T-49 THEN 1130 


1070 FOR |.| TQ N 

!8S » OT™ 

[.OC S0mA-SO9,A* B 

1120 goto neo 
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1130 FOR I-l TO N 
11^0 PRINT "angolo";I; 

11S0 INPUT " gradi? ":6 
1160 SOWlA-SOWWrB 
1170 («XT I 
UBO PRINT 
1190 A-SONNA 
1200 GOSUB 3360 

1210 PRINT "soena ; INT ( 1000»SQI*WI / 1000;CXR* ( 131) : c 

1220 PRINT GRADI :CHR*( 131) ; PRIMI ICHR» (391I SECONDI t Q«* ( 1321 

1230 BOTO 1680 

1260 GOSUB 3310 

1250 IP T=50 TI-CN 1300 

1260 INPUT “Angolo 1 - gradi ":B1 

1270 INPUT "Angolo 2 ■ gradi ":G2 

1280 SOnMA»Gl-02 

1290 GOTO 1360 

1300 PRINT "Angolo ls" 

1310 GOSUB 3600 

1320 SOmA=G 

1330 PRINT "Annoio 2:" 

1360 GOSUB 3600 
1350 SOMMA=SOMMA-G 
1360 6-S0IH1A 
1370 GOSUB 3360 

1380 PRINT : :"DIfterenza ■ "! INT < lOOOaSOHFIA) / |000iCHR*( 151 > : : 

1390 PRINT GRADI ; CHRS doli I PRIMI 1CW6 (39) VSECONDI 1DR61152) 

1600 GOTO 16B0 

1610 GOSUB 3510 

1630 IF T*50 THEN 1650 

1630 INPUT "Angolo ■ gradi ":0 

1660 GOTO 1660 

1650 GOSUB 3600 

1660 PRINT 

1670 INPUT "noi tipi icato par? ":N 

1600 PRINT 

1690 G-G«N 

1500 A*G 

1510 GOSUB 3360 

1520 PRINT "Prodotto -"1INT(1000»G)71000;CHR*1131>: : 

1530 PRINT 1 GRADI » CHRP 11511 ?PRIMI1 CtftS C39) l SECONDI I ORI ( 152) 

1340 GOTO 1680 

ISSO GOSUB 3310 

1560 IF T=50 THEN 1590 

1570 INPUT "Angolo « gradi “:G 

1580 BOTO 1610 

1590 QOSUB 3400 

1600 PRINT 

1610 INPUT "diviso per? ’sN 

1620 PRINT 

1630 G=G/N 

1640 A-G 

1630 GOSUB 3360 

1660 PRINT "Quoziente »"> INTUOOO«G>/lOOOlCHT*( 131 ) : s 
1670 PRINT " n "lGRADI;CHR*(1311,PRIMI;CHRS(391•SECONDI|CHR6(132) 
I6B0 RETURN 
>690 CALL CLEAR 

1700 PRINT “APPLICAZIONI Al TRIAfCOLI’:: 

1710 GOSUB 3240 

Ì720 FRINT "Scegli una del casi seguenti":: 

1730 PRINT ”1. Triangoli rettangol i ■ t *2. Triangoli scaleni"::: 
1740 CALL KEY(0,T,S) 

1750 IF S=0 THEN 1740 
1760 IF T=49 THEN 1790 
1770 IF T*30 THEN 2230 
17B0 GOTO 1740 
1790 PRINT :::::::: 

IBOO CALL HCHAft(21,11,129,10) 

1810 UR-16 

1B20 GOSUB 3270 

1030 CALL VCHARU6,21,136,31 

1840 CALL HCHAR(20,13,1415 

ISSO CALL HCHARI21,10,63) 

1860 CALL HCHARCl,21,66) 

1670 CALL HCXAR (15,21,67) 

IBBO PRINT "(A>«ngo)o,B"base,H»altezza): 

1690 INPUT “Cosa vuoi trovare’’ ":RIBP* 

1900 IF R1SP*«"A" THEN I960 

1910 IF RTSP*-’B" THEN 2030 

1920 IF R1SP*-"H" THEN 2140 

1930 GOTO 1890 

I960 PRINT 

1930 INPUT "base - ":B 
1960 INPUT "altezza = ":H 
1970 R«ATN(H/B) 

19B0 PRINT "L'angolo e' di: “5INT(1000*GRA+.3>/lOOOiCHR*(1311 : : 
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1990 A-GRA 
2*00 0DSUB 3340 

20\0 PRINT "ox "I GRADII CHR4< 151 > i PRIMI 1CHR4 <39> 19EC0NDU CHR9 ( 132> 

roso GOTO 24eo 

2030 GOSUB 3310 

2040 TF T-30 THEN 2070 

2030 INPUT "angolo - gradi ":G 

2060 GOTO 2000 

2070 GOSUB 3400 

2090 PRINT 

2090 INPUT "altezza “ ":H 

2100 PRINT 

2110 H»H/TAN(RAD> 

2120 brint "base -"i1NT(t00*B«-.5>/100 

2130 GOTO 2490 

2! 40 GOSUB 3510 

2150 IF T*30 THEN 2180 

21Ò0 tNPUT “angolo c gradi ":6 

2170 GOTO 2190 

rier. GOSUB 3400 

2190 PRINT 

2200 INPUT "base * ":B 

2210 PRINT 

2220 H e B*TAN <RAD> 

2230 PRINT "altezza «"I INT<100*H*.5>/100 
2240 GOTO ?4B0 
2230 PRINT : : :i: ; i : 

2260 CALL HCHAR<21, 11, 129, 10» 

2270 UR-17 
226'* GOSUB 3270 

2290 DATA 17,19,146,10,19.147.19.20.146,20.20.147 
2300 DATA 20ll3,141,21,10,65,21.il.66.l6,l$,ò7 




«VjV ryn Ì*1 iu w 

2330 READ R1,C0,NC 
2340 CALL HCHAR <R J,CO,NC > 

235*? N£XT 1 

2360 PRINT "Calcolo il lato BC, dati AB,“:"BC e l'angolo compreso.":: 

2370 GOSUB 3510 

2380 IP T-SO THEN 2410 

Z390 INPUT "angolo - gradi ":G 

2400 GOTO 2420 

2410 GOSUB 3400 

2420 PRINT 

2430 INPUT "lato AB - ":L1 
2440 INPUT "lato AC * **:L2 
2450 PRINT 

2460 L-SOR(LÌ*Ll*t.2*L2-24Ll*L2«COS<RAD> ) 

2470 PRINT "lato BC tINT<100«L*.5)/100 

2490 RETURN 
2490 CALL CLEAR 

7500 PRINT "DISTANZA DI UN PUNTO"*! 

2510 GOSUB 3240 

2520 PRINT "PreaiPer la triangolazione" 

2530 PRINT "2. Per il metodo ad angolo"i" parallattico variabile"!: 

2340 CALL KEYCO.T.Sl 

2350 IF 9*0 THEN Ì540 

2360 IF T-49 THEN 2390 

2570 IF T-50 THEN 2900 

2380 GOTO 2340 

2590 PRINT ::::::::::: 

2600 CALL VCHAR( 10, IO, 133,3) 

2610 UR-13 

2620 GOSUB 3270 

2630 POR 1-0 TO 3 

2640 CALL HCH*« <17, 1 t*l, 130+ 1 ) 

2650 NEXT I 

2660 POR 1-0 TO 3 

2670 CALL HCHAR 116, 15+1, I30>I» 

2680 NEIT 1 

2690 DATA 19, 19, 130, 19,20, 131 9 13,21 v M2.1S. 22, 143.20. ! 1.148 
2700 DATA 18,1i.149,17,11,150,17,IO,65,21,10,66,14,23,6/ 

2710 RESTORE 26$0 

2720 FOR 1*1 TD 10 

2730 READ Rl,C0,NC 

2740 CALL HCHAR!RI, CO, NC) 

2750 NEXT 1 

2760 INPUT "Lunghezza AB « *:L 
2770 PRINT TAB(S)1"angolo Ax" 

2780 SOHHA-IBO 
2790 GOSUB 3400 
2900 S0WA-50fPlA-G 
2810 SI-SIN(RAD) 

2820 PRINT TAB<BM "angolo B: " 

2830 GOSUB 3400 
2840 52—SIN(RAD) 
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G-SOHMA-G 

S3-SIN(RAD> 

PRINT : :"Distanzi AC «*IINT1100+L+S2/S3+-S>/lOO 
PAINT -Distanza BC INT<100+L+S1/S3+.3)/IOO 
GOTO 3230 
PRINT :::::::::: 

UR-13 

GOSUB 3270 
FOR 1-0 TO 2 

CALL HCHAR<20,11+1,137+11 
ICXT I 

CALL HCMARI20,14,133» 

FOR 1*0 TO 3 

CALL HCHARU9, 15+1,130+1) 

IVEXT I 

FOR t-0 TO 3 

CALL HOMRI19, 19+1, 130+1) 

MEXT 1 

CALL VCHAR<13,23,136,3) 

CALL HCHAR(2l,Il, 129, 121 
CALL HCHARI21,17,60» 

CALL HCHAR(20, 10,65) 

CALL HCHAR<16,24,76) 

PRINT -Scrivi 1 dua angoli <A1>A2>.-:: 

PRINT TAD(8> I »'*■“: "angolo Al i - 

GOSUB 3400 

A-G 

51- TAN(RAD) 

PRINT 

PRINT T AB (8M"'*'*:" angolo A2: " 

GOSUB 3400 

IF A>G THEN 3190 

PRINT "ERRORE 1 RIPROVA»:: 

GOTO 3080 

52- TANCRAD) 

PRINT 

INPUT -distanza L - “:L 

PRINT ::-Distanza 0 « M l INTUOO+L/<£1-S2)*.S>/100 
RETURN 

CALL HCHAA<24,3,93,2B> 

PRINT ::: 

RETURN 

C0-9 

FOR RI“20 TO IR STEP -1 
CO-CO+2 

CALL +CMAR(RI,CO, 144) 

CALL HCHAR (RI ,CO+l ,143) 

MXT RI 
RETLRN 
GRADI-INT (A) 

A-IA-GRAD11+60 
PRIHl-INT<A> 

A-<A-PRIHI>«60 

SECONDI-INT(Ai100+.5»/t00 

RETIKN 

PRINT -Scrivi: BRADI .PRIMI. SECONDI " I : 

PRINT -(’:OmaSI>l 1 .-lCHR»<39);-,-|CW*<132);-) -i 
INPUT StADI-PRIMI-SECÒNDI 
G «GRADI +PR1MI / 60+SECONDI /3600 
RETURN 

INPUT -Quanti angoli9 "iN 
PRINT 

IF N<■ 10 THEN 3300 

PRINT 'Spiaccnta, non piu' di IO.: 

GOTD 3450 
RETURN 

PRINT "Scegli trai 1.gradi decimai I”iTABI 131i"2.gradi sessag 
CALL KEY<0,T.S) 

IF 3-0 THEN 3320 

IF <T<49) + <T>30I THEN 3320 

RETURN 

CALL CLEAR 

END 


Dopo il titolo (140-190) sono definiti i caratteri grafici. La loro posizio¬ 
ne oel programma non è casuale: durante il tempo impiegalo dal compu¬ 
to' per memorizzarli il titolo permane sullo schermo, fino all’apparizione 
del menù. 

Alle linee 430-440 sono definite le funzioni per trasformare i radianti in 
gradi rierimali e viceversa; il computo utilizza i radianti per le funzioni 
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trigonometriche. Il menù occupa le linee seguenti. Nelle conversioni di 
misura, per quanto riguarda i radianti e i gradi decimali, vengono dati i 
valori con l’approssimazione a meno di un millesimo. 

Per le operazioni ovviamente si utilizzano i gradi decimali, il risultalo è 
dato sia in gradi decimali che sessagesimali, cioè in gradi, primi e secon¬ 
di. La variabile SOMMA la ritroviamo a linea Z780, quindi in un’altra 
sezione del programma, per calcolare il terzo angolo interno di un trian¬ 
golo. 

Le istruzioni DATA alle righe 2290-2300 c 2690-2700 contengono i nu¬ 
meri di riga, di colonna e di carattere per le istruzioni CALL HCHAR, 
evitando cosi di riscrivere queste parole innumerevoli volte. 

11 programma utilizza alcune subroutine; vediamole una ad una. 3240- 
3260 scrive una linea sotto ì titoli delle sezioni. 3270-3330 traccia una li¬ 
nea obliqua ricorrente in varie immagini; CO è il numero di colonna e RI 
di riga per le istruzioni CALL HCHAR, Ufi è l’ultima riga, la prima è 
sempre la numero 20, in tal modo la routine crea linee di lunghezza va¬ 
riabile. 3340-3390 trasforma le misure da gradi decimali a sessagesimali; 
“entra” la variabile A ed “escono" le variabili GRADI, PRIMI e SE¬ 
CONDI. 3400-3440 accetta in input una misura sessagesimale e la resti¬ 
tuisce in forma decimale (G). 3450-3500 chiede quanti angoli devono es¬ 
sere sommali; il loro numero i stato posto al massimo uguale a 10. 
3610-3560 chiede se per l’input seguente si desidera la forma decimale o 
sessagesimale. 

Un'ultima corróder azione. La CALL KEY di linea 520 utilizza la variabile 
K, essa viene fatta corrispondere al numero di sezione (K= K-48); se, 
dopo aver eseguito un calcolo, si vuole restare nella stessa sezione senza 
tornare al menù principale si passa direttamente alia riga 560, dove K ha 
sempre lo stesso valore che aveva in precedenza. 

Le altre istruzioni CALL KEY non possono più usare la variabile K per 
non alterare il suo valore; infatti usano la variabile T. 

La memoria occupata dal programma è di 8,4 Kbyte. 

Ecco un esempio pratico. 
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RUN 


DISTANZA DI UN PUNTO 


Pre*i: 

1. Per le triangolazione 

2. Per il aetodo ad angolo 
parallattico variabile 



Lunghezza AB ■ IO 
angolo A: 

scrivi: GRADI,PRIMI f SECONDI 
? 92,30,15 

A 

angolo B: 

scrivi: GRADI,PRIMI,SECONDI 

? SA,15,10 

Distanza AC = 459.98 
Distanza BC = 460.52 


vuoi continuare con questo 
tipo di calcolo? (s/n) 





_ CAPITOLO TUE 

Rappresentazioni grafiche 


Prima di affrontare qualsiasi problema particolare è opportuno conside¬ 
rare brevemente le caratteristiche grafiche del TI 99/4A. L'output su vi¬ 
deo deirhome computer utilizza 24 righe e 32 colonne; pertanto è possi¬ 
bile individuare 24 x 32 = 768 posizioni nelle quali sono indirizzabili o i 
caratteri ascii o altri caratteri definiti dall'utente. 

Volendo stampare un asterisco alla riga 12, colonna 16, daremo l'istru¬ 
zione CALL HCHAR (12,16,421, dove 42 ì il numero di codice ascu 
dell'asterisco. 

Nella maggior pane delle applicazioni grafiche è necessario definire ca¬ 
ratteri speciali. Per chi non avesse ancora acquisito sufficienti conoscen¬ 
ze sull'argomenio daremo qui un esempio pratico per chiarire il procedi¬ 
mento. 

Ogni carattere presente sul video occupa una matrice di 8 x 8 punti (pi¬ 
xel), per definire un nuovo carattere è quindi consigliabile disegnarlo 
prima su un foglio quadrettato sul quale si sia delimitato un quadrato 
formato da BxB quadratini. Si effettua il disegno annerendo solo i qua¬ 
dratini che interessano. Diviso a metà l’intero quadrato con una linea 
valicale, esso risulta scomposto in 16 blocchi di quattro punti ciascuno 
(vedi figura 7). I blocchi vanno letti, come di consueto, da sinistra a de¬ 
stra e dall'alto verso il basso. Dal confronto di ogni blocco con quelli 
della tabella di pagina 84 del manuale è possibile associare ad ognuno di 
essi un valore esadecimale. 

11 nuovo carattere viene pertanto definito da una stringa di 16 caratteri 
in codice esadecimale. Nell’esempio riportato la stringa è 
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.3 2 .1 .0 
2 2 2 2 


2 

1 

7 

1 

7 

4 

C 

0 


cu 

cn 


crm 



Nili o 
M I 1 I 8 

I ■ I I 4 

1 1 1 1 I o 

lini o 

IMI! 4 

lini o 


X$= “20187410704AC4 00». 

Fio 7 


A$ = "20187410704AC400" e l'istruzione per definire il carattere t CALL 
CHAfl(N,A$), dove N è un numero compreso ira 32 e 159. Va ricordato 
che usando i numeri inrcriori a 128 si rìdefìniscono i caratteri ascii. che 
periamo non sono più disponibili nello stesso programma. 

Alcune applicazioni attinenti alla grafica consistono nel costruire curve 
che rappresentano funzioni matematiche. Le curve vanno sempre co¬ 
struite per punti ed è ovvio che più questi sono numerosi e ravvicinati 
più definita apparirà l’immagine. 1 migliori risultati si ottengono indiriz¬ 
zando i singoli pixel. Il TI 99/4A, tuttavia, non consente l’indirizzo indi¬ 
pendente dei singoli punti-video ma questi devono prima essere riuniti a 
formare un carattere ed i poi questo ad essere stampato sullo schermo. 
In realtà è possibile creare una routine in TI Basic per la ricerca dei 
punti-video che formano una curva, il loro raggruppamento in blocchi e 
da questi la definizione e la stampa dei caratteri. L'esecuzione è tuttavia 
mollo lenta ed il computer impiega 3 o 4 minuti per creare il grafico di 
una funzione in questo modo. 

Il metodo più semplice per creare l'immagine della curva consiste nello 
stampare una serie di asterischi. Volendo, ad esempio, disegnare una ret¬ 
ta si inserisce nel programma l’istruzione DEF Y= A*X + B, con degli IN¬ 
PUT si attribuiscono i valori di A e di B, si danno alla X successivamen¬ 
te i valori da I a 32 e, se Y non è minore di 1 o maggiore di 24, si stam¬ 
pa l’asterisco con l’istruzione CALL HCHAR(25-Y,X,42). Le righe sono 
numerale dall’alto al basso e per spostare l'origine degli assi cartesiani 
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ndl’angolo del video in basso a sinistra bisogna che il numero di riga sia 
25-Y. 

Poiché il TI 99/4A dispone solo di 32 colonne, la retta ottenuta con gli 
asterischi risulta piuttosto rudimentale e viene lecito chiedersi se non sia 
possibile fare di meglio. 

Un buon compromesso tra l'eccessiva lentezza del programma Basic in 
grado di dare una curva in pixel e quello che utilizza gli asterischi consi¬ 
ste nel definire preventivamente un ceno numero di caratteri speciali e 
poi far stampare quelli che più si avvicinano al tratto di curva considera¬ 
lo. 

A titolo esplicativo consideriamo una routine adottata in un programma 
presente in questo capitolo. 

Per raggiungere una maggiore risoluzione grafica, si simula una condi¬ 
zione in cui è disponibile un numero doppio di colonne ed un numero 
quattro volte più grande di righe. 

Per ottenere un simile risultato si definiscono caratteri idealmente scom¬ 
posti in due semicolonne; in ogni semicolonna si colloca un punto posto 
a quattro diverse altezze. 

La figura B mostra alcuni di questi caratteri. 



CHR$ 11281 



CHR$(129) 



CHR$(1301 
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- 

j 
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CHR$(131) 




r ■ tir 

r 

1 t , T 

£ 





-V—1-T-l 

i 

É 


CHR$(132) 



Tenendo conto del fatto che potrebbe essere presente un punto in una 
semicolonna e mancare nell’altra, 24 caratteri sono sufficienti a coprire 
tutte le combinazioni. Nel nostro caso essi sono stati numerati dal 128 al 
151. 

Ponendo l’origine al centro dello schermo (colonna 16), si calcolano i 
valori della funzione nell'intervallo -12, -t-12 attribuendo alla variabile 
indipendente X valori con incremento di 0.5. Precisamente si definisce 
una variabile XX jalf rhe .il .tuimcv .rfi .rsibmnf jl ; jrainpir stir AJV AA* 
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XX assume valori Interi da -12 a + 12, la X è uguale alternativamente a 
XX-0.75 e XX-0.25. In questo modo si calcola il valore della funzione 
prima in corrispondenza della semicolonna sinistra e poi di quella de¬ 
stra. Individuate le righe di stampa il programma deve scegliere i carat¬ 
teri che più si avvicinano alla funzione da rappresentare. Non va dimen¬ 
ticato che i punti nelle due semicolonne non si troveranno necessaria¬ 
mente sulla siessa riga. Si calcola pertanto DIFF = Y-INTIY) ed in base a 
tale differenza si trova PI = INT(DIFF*4) +1 che indica a quale livello si 
trova il punto all’interno del carattere e si stampa il primo carattere con 
l'istruzione CALL HCHAR (13-RIGA1.16 + XX,1Z7 + MI. 

Poiché PI assume valori interi da 1 a 4, il carattere stampato avrà un 
numero variabile da 128 a 131 e sarà di quelli aventi un solo punto nella 
semicolonna di sinistra. Successivamente, in modo analogo, si stampa il 
punto sulla semicolonna di destra. Si calcola ancora la differenza 
DIFF= Y-INTIY), si irova P2 = IINT(DIFF«4) +1) 5, e se RIGAI = RIGA2. 
si stampa il carattere con l'istruzione CALL HCHAR(13-R1GA2,16+ XX, 
1Z7+P1 + P2), altrimenti, se le righe di stampa sono diverse, si dà la 
stessa istruzione dopo aver posto PI =» 0. 

É importante notare che la somma 127 + PI + P2 restituisce proprio il 
numero del carattere, costituito da uno o più pumi, che meglio rappre¬ 
senta la funzione considerata. 

Il listato di questa routine i presente all’intemo del programma sullo 
studio analitico delle parabole in questo stesso capitolo. Riportiamo in¬ 
vece, qui di seguito, il diagramma a blocchi. 
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Per meglio valutare i risultali ottenibili con metodi diversi, nella figura 
IO viene mostrata la stessa parabola ottenuta con la stampa di asterischi 
(a), con la routine precedentemente esposta (b) e in alta risoluzione (c). 


RUN 



Un'ultima considerazione, prima di passare ai programmi. In TI Basic, 
quando si stampa un carattere in corrispondenza di una riga e di una co¬ 
lonna, esso sostituisce ogni altro carattere eventualmente presente nella 
stessa posizione. In alcuni casi questa caratteristica può dar luogo a 
qualche inconveniente. Ad esempio, se i punti che costituiscono il grafi¬ 
co della funzione cadono in prossimità degli assi cartesiani o se si vuole 
rappresentare l’intersezione ira due rette, può accadere che, per la so¬ 
vrapposizione di nuovi caratteri, venga cancellata una parte del grafico 
precedentemente stampata. Ovviamente il fatto non si verificherebbe se 
si potesse indirizzare, in modo indipendente, ogni singolo pixel piuttosto 
che un carattere che è formato da 64 pixel. 

Il problema può essere risolto con una routine che esegua la “somma" 
di due caratteri cioè che, dati due caratteri definiti dalle stringhe A$ e 
8$, costruisca un terzo carattere C$ sommando, uno ad uno, i caratteri 
esadecimaii di A$ e B$. Il terzo carattere porterà in posizione ON tulli i 
pixel del primo e tutti i pixel del secondo. Il metodo più semplice consi¬ 
ste nel memorizzare, con istruzioni DATA, una tabella di composizione 
per “sommare" i caratteri esadecimaii. 

Il termine sommare è posto tra virgolette perchè ha un significato più 
generale di quello comunemente accettalo. Ad esempio, il carattere csa- 
decimale C indica un “blocco" di quattro pixel con i primi due pixel di 
sinistra in posizione ON, mentre il carattere esadecimale 9 significa che 
soqo ON il primo e il quarto pixel; la loro somma è un blocco con il pri¬ 
mo, il secondo ed il quarto pixel in posizione ON, pertanto: C + 9= D. 
Analogamente 5+2 = 7, ma attenti, 5+4=5, 3+2 = 3, ecc. Inoltre, F 
più qualsiasi altro carattere è uguale ad F. Segue la tabella di composi¬ 
zione completa. 
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0 I 


0 

1 

2 

3 

4 

5 

6 
7 
B 
9 
A 
B 
C 
D 
E 
F 


0 1 
1 1 

2 3 

3 3 

4 5 

5 5 

6 7 

7 7 

8 9 

9 9 
A B 
B B 
C D 
D 0 
E F 
F F 


23466789ABCD 


2 3 4 6 6 7 

3 3 5 6 7 7 

2 3 6 7 6 7 

3 3 7 7 7 7 

6 7 4 6 6 7 

7 7 6 5 7 7 

6 7 6 7 6 7 

7 7 7 7 7 7 
A B C D E F 
B B D D F F 
A B E F E F 
B B F F F F 
E F C D E F 
F F D D F F 
E F E F E F 
F F F F F F 


B 9 A B C D 
9 9 B B D D 
A B A B E F 
B B B B F F 
C D E F C D 
D D F F D 0 
E F E F E F 
F F F F F F 
B 9 A B C D 
9 9 B B D D 
A B A B E F 
B B B B F F 
C D E F C 0 
D 0 F F D D 
E F E F E F 
F F F F F F 


E F 


E F 
F F 
E F 
F F 
E F 
F F 
E F 
F F 
E F 
F F 
E F 
F F 
E F 
F F 
E F 
F F 


Tolto l'elemento estremo F, che i costante, rimane una matrice 
S$I15,15). Lati singolarmente, i caratteri esadccimali con l'Istruzione 
SEG$ si trasformano in numeri, pertanto A=10. B = 11, ecc. e si ha la 
loro somma richiamando l'elemento della matrice S$(N1,N2). La routine 
termina con la composizione della strìnga che definisce il carattere som- 


li programma che segue è fatto a scopo dimostrativo. Esso accetta io in¬ 
put due stringhe di caratteri esadecimali, stampa i due simboli ad esse 
associati e, a fianco, la loro "somma''. Non sarà dimoile adattarlo op¬ 
portunamente in altri programmi attinenti alla grafica. 


!« CALI- CLCAF: 

110 OlM SI < 14. I »! 
I» POR 1*0 TO 14 
170 FOR 1 TO 14 
HO READ Sl'.J.I > 

150 HCI.T 1 
ISO NEXT J 
170 DATA O.!,?. 7,4, 
t&j DATA 1. t.3.3.5, 
100 DATA 2.3; 2, 3. 6. 
200 DATA 3,3.3. 3,7, 
210 DATA 4,5,6.7.4. 
270 DATA 5.5.7,7.5. 
2SC DATA *.7,6.7. 6. 
240 DATA 7. 7,7. 7. 7. 
2S0 DATA 0.9, A. B.C, 
260 DATA 9.9. B. B, D. 
270 DATA A.B. A,P.E. 
280 DATA B. B.B.B.F, 
290 DATA C.D.E.F.C, 
300 DATA D.D.r.F.D, 
310 DATA E.F.E.F.E, 
320 ISTUT "STRINGA 
330 PRINT 

340 INPUT "STRINGA 
350 C«-“ “ 

360 FOR 1 = 1 TO 16 


5.6.7. e.9.A, 

5.7.7. 9. 9, li. 

7.6, -’.A.S.A. 

7.7.7. B.P.B, 

5.6, 7.C.D.E. 

5.7, T.D.D.r . 

7.6.7, E.F.E. 

7.7.7, F.F.F. 
D.E.F.B.9.A. 
D,F,F.9,9.B. 
F.E.F. A.B.A. 
F.F.F.B.B.B. 

£:É: F F:g;B:É: 

C&RiTflftE'^ 
CARATTERE 2 


fc.C.P.t 

B.D.P.F 

b.e.f.e 

B.F,F. F 
F.C.D.E 
F.D.D.F 
F.E.F.C 
F.F.F.F 
B.C, B.r 
&. I>. P, F 
B.E.F.E 
B.F.F.F 
F r C . P. E 

f!d,p.f 

F.E.F.E 


B* = 


-:A» 
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370 L1- ASCISEGi(A*,1,1)) 

390 L2=ASCCSEG*f&».I,1)) 

370 tr LI 60 THEN 420 

«00 VI=L1 4B 

«IO GOTO «30 

420 V!=LI-35 

430 IF ir: 60 THEN 460 

440 vr-12-40 

450 GOTO 470 

4 60 V2=L2-55 

470 IF 01=15 THEN 510 

480 IF 02”15 THEN 510 

490 C*-C*6S»IV1.V2) 

5'V> GOTO 520 
510 C* = C*S."F" 

520 NEXT I 

530 C*=SEG*(C*.2.16) 

540 CALI CLEAR 

530 CALI CHAR(l2B.At> 

560 CALI CHAR(129,9*1 
570 CALL CHAR(130,C*) 

500 CALL HCHAR(12,IO,!?9) 

590 CALI HCHARI12,12.43! 

600 CALL HCHAf\( 12, 14, 129) 

610 CALL KCHAR( 12. 16,61) 

620 CALL HCHARU2. 16. 130) 

630 PR1NT ’• VUOI CONTINI) Afi£7 (5/N) * 
640 CALL KEYIO.K.S) 

630 IF S=0 THEN 640 
660 IF K»BI THEN 320 
670 END 


Una delle più comuni rappresentazioni grafiche è costituita dai diagram¬ 
mi a strisce o a colonne. 

In essi le strisce sono di lunghezza proporzionale ai valori numerici da 
rappresentare. Rispetto ad una tabella essi Torniscono informazioni con 
molta più immediatezza. 


Gnficl ■ strisce 

Questo programma permette di memorizzare dati consistenti ognuno in 
un elemento descrittivo ed un corrispondente valore numerico. Potrebbe¬ 
ro essere, ad esempio, nomi di monti e rispettive altezze, anni e popola¬ 
zione censita, Dazioni e corrispondenti superlici in kmq, nomi degli stu¬ 
denti di una classe ed il loro peso, giorni del mese e temperature, etx. 
La tabella ottenuta in un primo tempo può essere successivamente ordi¬ 
nata o in ordine alfabetico o secondo le misure crescenti. I dati vengono 
poi rappresentali con un diagramma a strisce fonogramma) il cui dimen¬ 
sionamento i completamente automatico nel senso che, in base alle mi¬ 
sure introdotte, il programma suddivide l'asse verticale in un certo nu¬ 
mero di parti e, accanto, stampa i valori multipli di una opportuna unità 
di misura. Ad esempio, se la massima misura è 36, l'asse verticale viene 
diviso in 5 pani accompagnate dai valori IO, 20, 30, 40, e 30; se il mas¬ 
simo valore introdotto i 2800, l’asse i diviso in tre parti accompagnate 
dai valori 1000, 2000, 3000. 11 dimensionamento automatico non è cosa 
difficile da ottenersi, ma un’adeguata notazione scritta delle grandezze è 
una cosa non comune e certamente utile per una corretta lettura del gra¬ 
fico. 
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Un'altra notevole prerogativa del programma apparirà con evidenza dal¬ 
le seguenti precisazioni. 

Ogni carattere del TI 99/4A occupa una matrice di 8x8 punti video (pi¬ 
xel). Il modo più semplice per ottenere la striscia di un ortogramma con¬ 
siste nel definire un carattere con tutti i punti colorati, cosa che può es¬ 
sere fatta con le istruzioni 

CALL CHAR1128," F‘l 
CALI COLOR(13,9,9) 

che creano un quadratino rosso, e successivamente stampare i quadratini 
uno sull’altro per l’altezza desiderata. É evidente che in questo modo le 
colo orline differiranno per quantità discrete, pari a 8 punti video, e mi¬ 
sure non molto diverse tra loro verranno rappresentate sul video con co¬ 
lonnine della medesima altezza. Per eliminare questo inconveniente sono 
stati definiti anche “blocchi” atti 1 pixel, 2 pixel, 3 pixel, ecc. e si è 
creata una routine che stampa la colonna fino ad una certa altezza uti¬ 
lizzando i quadratini “pieni” e poi la completa sovrapponendo il carat¬ 
tere più opportuno. In tal modo si utilizzano lutti i 192 pixel disponibili 
sull'asse verticale c si possono apprezzare visivamente anche piccole dif¬ 
ferenze tra le misure. 

Sull’asse orizzontale, a scelta dell’utente, appaiono le iniziali degli de¬ 
moni rappresentati, oppure i numeri progressivi, le lettere ddl'alfabcto, 
le iniziali dei mesi dell’anno, ecc. 

Al termine, se si desidera, viene calcolata la media aritmetica; il suo va¬ 
lore è dato in forma numerica sotto al diagramma ed in forma grafica, 
con una linea orizzontale, sul diagramma stesso. 


tOO REM •««»•»««• ••«*••••• 

HO REM * ORTOGRAflMl ♦ 

12 n REM .. 

Ito REM versione TI BASIC 

140 CALL CLEAR 

150 OPTIQN BASE 1 

140 DIM A*<22,2) ,X<22).K»(22! 

170 PRINT - - 

180 ERI NT-ORTOGRfimT"- 

190 PRINT - 

200 FRI NT - 

210 FOR TEMPO” l TO 300 
220 1CXT TEMPO 
210 CALL CLEAR 
240' STAMPO 

250 rnRUT -QUANTI SONO GLI ELEMENTI DA INSERIRE? (N. MASSIMO-22> ":0 

240 IF Oz =22 THEN 300 

270 FRINÌ "• VALORE TROPPO ALTO 1 * f 

reo PRINT 

290 GOTO 250 

:<«:• RRiNT 

Ito PRINT -PER OGNI ELEMENTO INSERISCI IL NOME E LA MISURA SEPARATI DA UNA VIRGOL 
A* 

520 FRINT ' NOME, MISURA" 

120 PRINT * 

340 PRINT - 

330 INPUT A*(l, 1>,A*([,2> 

340 MAX «VAL ( A» ( 1,2) ) 

370 SOMMA”VAL (A*<1,2)1 
380 FOR R”2 TO 0 
390 PRINT Ri 
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400 INPUT A«<R, l).A*<R,2) 

«IO S0rtlA»S0*itvWvAL(A*<R,2)> 

«20 IF MAX >VAL(A*IR,21)THEN ««O 
«30 HAX-VAL(AA(R,2)> 

««0 rCXT R 
«SO CALL CLEAR 
«60 PRINT "PREMI¬ 
ATO PRINT -I. PER ORDINARE LA TABELLA 
«SO PRINT *2. PER ORDINARE LA TABELLA 
«90 PRINT *3. PER VEDERE LA TABELLA":• • 

300 If^UT J 
SIO IF J=1 U€N S60 

520 IF J-2 TKCN S60 

530 IF J-3 THEN 1010 

540 PRINT " -QUESTO NUTERO NON E” AMMESSO" 
330 BOTO «30 
560 FOR R-l TO 0 
570 K«(R)-A*<R.J) 

380 IF J02 THÈN 620 

590 IF LENIKXR) ! >-LEN (STR* (TWX > I THEN 620 
600 K*<RÌ-"0"fcK«CR) 

610 GOTO 390 
620 NEXT R 
630 GOSUB 1110 

6«0 PRINT " ■:"TABELLA ORDINATA:":" " 

650 FOR R-l TO 0 

660 PRINT RiA*(X<R),l)iTAB<20>|A«<X(R>,2) 

670 NEXT R ’ 

600 PRINT 

690 PRINT "PREMI 1. PER CONTINUARE" 

700 CALL KETtO.KEV,STATUS) 

710 IF STATUS-0 THEN 700 
720 CALL CLEAR 
730 PRINT "PREMI:" 

7«0 PRINT "1. PER VEDERE LA TABELLA" 

■2. PER ORDINARE LA TABELLA" 

■3. PER OTTENERE IL GRAFICO’ 

'«. PER RICOMINCIARE" 

•3. PER FINIRE":" ":" ■ 


SECONDO I NOMI " 
SECONDO LE MISURE" 


750 PRINT 
760 PRINT 
770 PRINT 
780 PRINT 
790 PRINT 
BOO IW>UT 


_ "SCELTA? "ifilSP 

aio if risp< i ticn e«o 

920 IF RISP>5 TICN 840 
830 BOTO 860 

840 PRINT "NUPtRO NON AfPESSO' 

850 GOTO 730 

860 ON RISP GOTO 1010,870,900,230,890 
070 CALL CLEAR 
880 60T0 460 
890 END 

900 CALL CHAR< 129, "FFFF000000000000") 
910 CALL CMAR(129,"7F7F7F7F7F7F7F7F") 
920 CALL CHAR< 130, "007F7 F7F7 F7F7F7F" ) 
930 CALL CMAR 1131, "00007F7F7F7F7F7F" ) 
940 CALL CHARI132,"0000007F7F7F7F7F") 
950 CALL CHAR1I33,"000000007F7F7F7F") 
960 CALL CHAR 1134, "00000000007F7F7F" ) 
970 CALL CHARU35, "0000000000007F7F") 
980 CALL CHAR( 136,"000000000000007F") 
990 CALL CHARI139,"0701010101010101") 
1000 GOTO 1240 
1010 CALL CLEAR 

1020 PRINT " TABELLA DEI DATI:":: 

1030 FOR R-l TO Q 

1040 PRINT R;A»CR,1),At(R,2) 

1030 NEXT R 
1060 PRINT 

1070 PRINT PREMI (I) PER CONTINUARE 
1080 CALL KEVIO.KEY.STATUS) 

1090 IF STATUS-0 TKÉN 1080 
1100 GOTO 720 
I110 FOR A—I TO 0 
1120 P-l 

1130 FOR B-l TO Q 

1140 IF K9CA1 >K*(B)TFCN 1190 

1150 IF K*(A)-K«(B)THEN 1170 

1160 BOTO 1200 

1170 IF A>B THEN 1190 

1180 GOTO 1200 

1190 LET P-P+l 

1200 NEXT D 

1210 X <P)-A 

1220 ICXT A 

1230 RETURN 

1240 REM ••«DIHENSICMAMENTO 

1250 BOSUB 2080 
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1260 MAXI-MAX 
1270 MOLT-1 

t280 IF MAXI<9999 T>OI 1320 

1290 MAX 1 -MAX 1 /1000 

1300 nOLT-MOLTMOOO 

1310 BOTO 12B0 

1320 VALUN1~I1AK1/18 

1330 E=M 

1340 IF VALUNJ<.1«E THEN 1400 

1350 IF VALLIMI . 2-E THEN 1730 

1340 IF VALUN!<.333*E TltN 1830 

1370 IF VALLINI<.666*E THEN 1930 

1380 E-E-10 

1390 GOTO 1340 

1400 1F EOI THEN 1540 

1410 CALL HCHAR 120,4,48) 

1420 COLL HCHAR( 13 7, 1391 
1430 CALL HCHAR! 13, A, 33) 

1440 CALL )CHAft< 13.3,44) 

1430 CALL HCHAR ( 13,4, 48) 

1440 CALL HCHAR ( 10,7, 139) 

1470 CALL LCHARI IO. 4,49) 

14B0 CALL HCHAR (5,7, 139) 

1490 CALL HCHAR <3,6,53) 

1300 CALL HCHAR(3.5,44> 

1310 CALL HCHAR >5, 4,49) 

1320 COEFF-.l 

1530 GOTO 2240 

1340 CALL HCHAR<20,6,48> 

1530 Gl«-STR*C.S4EStrCHR*< 139) 

1560 G2t>STR«(E)SCHR«(t39> 

1570 GGl»STR»<I.5*E>6a«*cl39> 

ISSO FOR t-1 TO LENIGl») 

1390 6-ASC(SEG»<Gl», I. 1) ) 

1600 COL-?-LEN(Gl*>*I 
1610 CALL HCHAR ( 13, COL.G) 

1620 NEXT 1 

1630 FOR 1-1 TO LÈN(G2*> 

1640 G-ASC(SE6*(G2», I, l>) 

1630 C0L-7-LEN(G2i>-I 
1660 CALL HCHAR <10, COL, G ) 

1670 NEXT 1 

1680 FOR 1-1 TO LEN(63*> 

1690 G-ASC <5EG*(G3*, I . I > ) 

1700 C0L-7-LEN(G3*)»I 
1710 CALL HCHAR(3,COL,G> 

1720 NEXT I 

1730 COEFF-. l*E 

1740 GOTO 2260 

1730 CALL HCHAR (20,6, 48) 

1760 FOR 1-13 TO 3 STEP -3 
1770 CALL HCHAR(I,7, 139) 

1780 M-(20-11/3 

1790 CALL HCHAR ( 1.7—LEN (STR4 (Eli, 40—W ) 

1B00 IF E-l THEN 1620 

1010 CALL HCHAR(1.8-L£N(STR«<E1 > , 48, LEN(STR* <E) )-!> 

1820 NEXT I 

te30 COEFF-, 2*E 

1840 GOTO 2260 

183 ' CALL HCHAR (20,6. 48) 

1860 FOR 1-17 TO 3 STEP -3 
1870 CALL HCHAR1I.7, 139) 

IBBO N= (20-1)73 

1890 CALL HCHAR<I,7-LEN<STR4 (E) ) . 48-WI 
1900 IF E-l THEN 1920 

1910 CALL HCHAR (I,9-LEN<STR*<E) ) t 40.LEN(STR*(E))-l ) 

1920 NEXT I 

1970 COEFF». 333-E 

1940 GOTO 2240 

1930 CALL HCHAR (20, 6.48) 

I960 FOR 1-17 TO 8 STEP -3 
1970 CALL HCHAR1 1,7, 139) 

I960 W- (20-1 > 71.5 

1990 CALL HCHAR CI,7-LEN<STR4<E)>.48*W) 

2000 IF E-l THEN 2020 

2010 CALL HCHAR ( 1,8-LEN(STR4 (E) ) , 48, LEN (STR4 CE) ) “1 ) 

202T' NEXT I 

2030 CALL HCHAR(3,7.139) 

2040 CALL HCHAR(3.6-LEN(5TR» (E) ) .49! 

2050 CALL «HAfi<5,7-LEN(STR»(E>),4S.LEN<STR»<E> >> 

2060 COEFFC.666-E 
2070 GOTO 2260 

2080 REM »»*ASSI 01 RIFERIMENTO-»* 

209'; CALL CLEAR 

2100 PR1NT -ODALE 6RANDE22A VUOI RAPPPE-SENTAPE 518 L ’ ASSE ORI IZONTO-LE’" 
2110 FRINÌ 
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2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
5160 
3170 
3180 
3190 
3200 
3210 
3720 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
34 30 
34*0 
3450 
3460 
34 70 
34BO 
3490 
3500 


PDEC-INT (B*DIFFERENZA*J I 
IF PDEC-1 T«N 3010 

CALL HCHAR ( 19-NUHRIGHE, 7+! , 138-POEC) 
«xt I 

IF STATI-! THEN 3070 

GOSUB 3150 

&OSUB 3340 

STATI-1 

GOTO 2910 

FRASE*-'*■ PReni (U PER CONTINUARE - 
FOR l-l TO LEN(FRASE*) 

NI «ASC(SEG*(FRASE*.I,1>> 

CALL HCHAR<24,2*I,N|J 
NEXT I 

CALL KEY10.KEV.STATUS) 

IF STATU5-Ò THEN 3120 
GOTO 720 

RETI **♦ «DIA **• 

MEDIA*-'VUOI IL VALORE «DIO*’ (S/N>- 
FOR 1-1 TO LEN (MEDIA*) 

ME*ASC <SEG» («DIA*, I. I ) > 

CALL HCHAR < 24, 2+ I, rE > 

NEXT I 

CALL KEY <0.KEY,STATUS) 

IF STATUS-Ò THÉN 3210 
IF KEY-B3 THEN 3260 
IF KEY-ltS THEN 3260 
GOTO 3320 

V«DIO*- 'VALORE «DIO - "*STR*<INT< 
FOR I-I TO LEN(V«DIO*) 

vh-asc (seo* (vnEDio*. I, i > > 

CALL HCHAR <23, 2+1, VM) 

NEXT I 
GOTO 3330 

CALL MCHAR (24,3, 32,26) 

RETURN 

REH «##«DIA SUL VIDEO 
CALL CHAR(130,"FFOOOOOOCOOOOOOO") 
CALL CHAR(151," OOOOOOOOOOOOOOFF'*) 
CALL CHAR ( 132, "OOOOOOOOOOOOFFOO" ) 
CALL CHAR(133,*OOOOOOOOOOFFOOOO”) 
CALL CHAR (134, "OOOOOOOOFFOOOOOO" ) 
CALL CHAR<133,"OOOOOOFFOO000000”) 
CALL CHAR U 36, "OOOOFF0000000000 M ) 
CALL CHAR ( 137, “OOFFOOOOOOOOOOOO") 

RH=INI ( (SOHHA/O) / (COEFF«hlOLT ) ) 
DIFF-(SOnRA/0) / <C0EFF««0LT)-RT1 
PDH-1NT <0*DIFF*1) 

IF PDUOl THEN 3490 

CALL KCHAR(20-RN,9, 130,23) 

GOTO 3300 

CALL HCHAR ( 19-RJl, 9, 149+PDR, 23) 

return 


IOOC/Q)/1000) 


Alla linea 160 viene riservata un'ara di memoria per le mairìci ed i vet¬ 
tori A$ , X e K$ ; serviranno per accogliere i dati in input e come indici e 
variabili provvisorie per il loro ordinamento. 11 numero massimo degli 
demani da insoire è stato posto uguale a 22 poiché le prime colonne 
dello schermo sono occupate da uno degli assi di riferimento e dai valori 
delle graduazioni. L'input dei dati avviene alla linea 340 e seguenti, con¬ 
temporaneamente viene caricato il valore massimo io MAX e la somma 
di latte le misure in SOMMA. La loro presenza è da mettere in relazio¬ 
ne, rispettivamente, al dimensionamento automatico del grafico e al cal¬ 
colo della media. Tutti i dati sooo inseriti in forma dì stringa, periamo, 
per eseguire su di essi qualsiasi operazione aritmetica, bisognerà conver¬ 
tirti in numeri con la funzione VAL. Nella linea 490, J rappresenta la 
scelta sul modo in cui deve essere fatto l’ordinamento. A dire il vero il 
valore 3 rimanda semplicemente alla linea 1010 in cui si stampano i dati 
così come sono stati introdotti, altrimenti J rappresenta il campo dei re¬ 
cord secondo il quale sì vuole l'ordinamento. Periamo, se il suo valore è 
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1, (uni gli clementi del primo campo saranno trasferiti nel vettore K$; se 
il suo valore è 2, nel medesimo vettore saranno trasferiti tutti gli elemen¬ 
ti del secondo campo. Per il successivo ordinamento i confronti verran¬ 
no effettuati proprio tra gli elementi di questo nuovo vettore. La routine 
adibita a questo scopo è posta più avanti alle linee 1110-1230. 

Nella istruzione PRINT di riga 610, XI RI è un vettore che funge da indi¬ 
ce della matrice A$ i cui elementi vengono definiti nella routine di ordi¬ 
namento. 

In 730-790 c’è il menù che potremmo definire principale, dal quale si 
può accedere alle più importanti futuiuni svolte dal programma. In 900- 
990 si definiscono caratteri speciali che verranno utilizzati nella pane 
grafica; la stampa della tabella dei dati non ordinata occupa le linee da 
1020 a 1060; nell’intervallo 1110-1230 si trova invece la routine per l’or¬ 
dinamento. In essa ogni elemento di K$ viene confrontato con ogni altro 
elemento dello stesso vettore; la variabile P è incrementata di una unità 
ogni volta che l'elemento preso in esame risulta maggiore di un altro ed 
indica perciò il posto che deve occupare nella lista ordinata. Se, ad 
esempio, il record 3. in base ai confronti viene a trovarsi al decimo po¬ 
sto, si carica l’elemento X(10) con il valore 3 (linea 1210); in seguito, 
stampando al decimo posto l'elemento con indice X(10), venà richiama¬ 
to proprio il record che in input aveva indice 3. 

Tutta la parte compresa fra te linee 1240 c 2070 è in funzione del dimen¬ 
sionamento automatico; la sua relativa complessità è giustificata dal tipo 
di output che si è voluto ottenere. Se la misura massima introdotta è 
maggiore di 9999, apparirà la scritta *1000 mentre tutte le misure saran¬ 
no divise per 1000, oppure verrà stampato xlOOOOOO e tutte le misure sa¬ 
ranno ridotte di un milione, e cosi via. Alla linea 1320, VALUNI contie¬ 
ne il valore unitario di ogni singolo carattere che forma la colonnina nel 
diagramma; si i assunto che la lunghezza massima di una striscia sia di 
18 caratteri. In base al valore unitario (linee 1340-1370) l'asse verticale è 
suddiviso in 3 o 5 pani corrispondenti a multipli di 1, 2, 3 o 0.S, 1, 1.5 
o I, 2, 3, 4, 5 o ancora, 2, 4, 6, 8, 10. 

Sarebbe stato molto più semplice trattare solo multipli di questi ultimi 
valori, tuttavia, supponendo che il valore massimo da rappresentare sia 
140, si sarebbero dovuti adottare i valori 200, 400, 600, 800 e 1000 con 
un evidente appiattimento di tutto il grafico verso LI basso. 

11 programma stamperà invece tre suddivisioni con i valori 50, 100, 150 
ed il grafico occuperà quasi l’intero schermo permettendo una maggiore 
definizione dell'immagine. 

Nelle linee 2350-2900 si stampano diversi simboli sull'asse orizzontale, 
mentre la pane seguente è occupata dalla routine per il grafico (2910- 
3010). 



rappresentazioni grafiche 


Pulì c rellc ul plano cartesiano 

U seguente programma fornisce i primi elementi a chi inizia lo studio 
della geometria analitica ed t già stato utilizzalo in classe quale strumen¬ 
to didattico. 

Le funzioni svolle sono molteplici: posizioni dei punti date le loro coor¬ 
dinate, con le linee di costruzione tratteggiate; coordinate del punto me¬ 
dio tra due punti dati; disianza tra due punti; grafico di una o due rette 
simultaneamente, date le loro equazioni esplicite; equazione di una retta 
passante per due punti; retta di dato coefficiente angolare e passante per 
un punto; punto di intersezione tra due rette. Vengono individuate con¬ 
dizioni di parallelismo ed è previsto l'input di rette parallele all'asse y, 
aventi, come i nolo, un’equazione esplicita nella forma x-K. 

I vari elementi sono presentati contemporaneamente in forma grafica ed 
analitica e vengono contraddistinti da diversi colorì. 

In accordo con quanto detto all’inizio del capitolo, il programma adotta 
alcuni accorgimenti volti a migliorare la grafica. Il primo consiste nello 
aimpare un punto per ogni colonna, ma a quattro differenti altezze 
iD'intorno di ogni riga in modo da attenuare l’aspetto a "gradini" che 
assumerebbe una retta inclinala sugli assi. 

0 secondo consiste neU’usare la funzione inversa, x=f(Y), quando il va¬ 
lore assunto dal coefficiente angolare della retta ì maggiore di 1; questa 
sedia è giusti lira La dal fatto che, se si stampa un punto per ogni colon¬ 
na, per inclinazioni superiori a 45°, i pumi che formano la retta sono 
sempre più distanziati ed i evidente che in questo caso i preferibile 
stampare un punto per ogni riga. 


100 RETI 
HO REM 
120 RETI 
ISO RETI 
140 RETI 
ISO RETI 
160 REM 
170 REM 
ISO REM 


PUTTI E RETTE 
SUL PIANO 
CARTESIANO. 


DI SERGIO BORSAN1 

__ VERSI CMC: TI BASIC 

IVO COLL OJEAR 

200 CALL CMAR<128,’lB18l0FFFP18iei8-’) 


240 A4--3C1B" 

HO BV-MB3C3C10- 

260 co--ooooiascici80000- 

270 M--OOOOOOCOlasciciB- 
280 E*--000000000000103C' 
HO Fa-’OCOOSOCOCOBO" 

300 G»* *000001030301* 

310 H*-*0* 

320 COLL OSAR ( 136, A4) 
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430 CALI. CHAR II 47,0» 
440 CALL CHAR(14B,E» 
450 CALL CWWIHT.HI 
440 CALL CHARI150,G*> 
470 CALL CHARUS1.H» 
480 CALL CHAR <152, A» 
490 CALL CHAR(I53,B*) 
SCO CALL CHAR<134,C4) 
510 CALL CHAR!133,041 
320 CALL CHAftl 154,E» 
330 CALL CHAft(137,F•I 
340 CALL CHARU3B,G*> 
330 CALL CHAR ( 139, H» 


360 CALL COLOR<t4,4,Il 
-COLOA113,7,11 


370 CALL ii 

380 CALL COLORI 14,13,11 


390 G09UB 3460 
600 GOSUB 3110 
610 CALL CLEAft 
620 CALL CO LORI 2,2,1) 


PRINT 


660 PRINT 
670 PAINT 
680 PAINT 
690 PAINT 
700 PRINT 
710 PAINT 


PASSANTE PER DUE PUNTI' 
SOLARE PASSANTE PER UN 
DLE RETTE- 


PLMTO 


CALL CLEAR 
PAINT 'QUANTI PUNTI VECI SEGNARE, 


1,2 0 37* 


640 PAINT "1. PUNTI SUL PIANO' 

630 PAINT '2. DISTANZA TRA DUE PUNTI' 

- punto renio* _ 

4. RETTE DI DATA ECXJAZIOME* 

3. EQUA! J06E DI UNA RETTA 

6. RETTA DI DATO COEFF. AN- 

7. PUNTO DI INCONTRO TRA 

. „ _ 8. PER FINIRE': : 

720 CALL KEYlO.K,8TATUS) 

730 IF 9TATUS-Ò THEN 720 
740 1F K<49 TVEN 720 
730 IF K>36 THEN 720 
760 SCELTA-K-46 

770 CN SCELTA GOTO 780,1340,1540,1690,2370,2610,2740,3890 

7B0- - 

790 

800 INPUT N 
810 N-INTIN) 

020 IF NO TVEN 830 
830 IF N>3 THEN 830 
840 GOTO 870 

830 PAINT "N«W HO CAPITO, PER FAVORE RIPETI": I 
860 GOTO BOO 
070 FOA I-I TO N 
BBO PRINT "PUNTO*li 

890 INPUT " ASCISSA? 'tP(I,l) 

900 INPUT ' ORDINATA? *:P(I,2) 

910 PRINT 
920 «IT I 
930 CALL CLEAR 
940 GOSUB 3220 
930 FOR I-l TO N 
960 FC-0 

970 RIGA-10-P<1.2) 

9B0 COL-IÒ+Pd, 1 I 

990 IF RISA<2 THEN 1170 

1000 IF RIGAMO TVEN 1170 

1010 IF C0L<6 THCN 1170 

1020 IF COL>26 TVEN 1170 

1030 CALL HCHAR(RISA,COL, 130*1*8) 

1040 IF COL >17 TVEN 1070 
1030 IF COLO 13 TVEN 1090 
1060 BOTO 1100 

1070 CALL HCHARIRIGA, I7,4S,C0L-17) 

1090 GOTO 1100 

1090 CALL HCHARIRIGA, COL-M ,43, 13-COL) 

1100 IF RISAMI TVEN 1130 
Ilio IF RIGA<9 THEN USO 
1120 GOTO UGO 

1130 CALL VCHAft< 11,COL, 131,R16A-111 
1140 BOTO UBO 

1130 CALL VCHAR (RIGA*I, COL, 131,9-RIGA) 

1160 GOTO UBO 

1100 PUNTO»»-P"4STR* UH' 1130*1*8)6' I“6STR*(PII, 1) 14*, "4STR*(P< 1,2) ) 

1190 FOR J-i TO LENI PUNTO*) 

1200 L-ASCISEQ* (PUNTO*. J,l>) 

1210 CALL HCHAR119+1, 4*J,L> 

1220 NEXT 0 

1230 IF FC< >1 THEN 1300 

! Zi? “l 77 ’ 02 ’ 73 . 32 . 77,80,79,32 

1230 RESTORE 12*0 
1260 FOR J-19 TO 30 
1270 READ L 

1280 CALL HQIAR(t9+l,J,L) 
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ro-ii 
■ìpii, i> 

*:P(I,2> 


t YM-1Y1+Y2)/2" 


1290 «IT J 
1300 «IT I 

1310 IF D1ST-1 THEN 1*40 
1320 GOSUB 3110 
1330 GOTO 3670 
1340 CALI CLEAR 
1330 FOR 1-1 TO 2 
13*0 PftlNT 'COORDINATE PU4T0') 

1370 I«UT ' ASCISSA - 

1300 INPUT " ORDINATA 

1390 PftlNT 
1400 «IT I 
1410 N-2 
1420 DISTAI 
1430 GOTO 930 
1440 DIST-0 

1430 DI2-4PC1. 1)-P<2,II 1^2TIPU,2>-P12,21 K2 
14*0 DI»INT<1Ò00*S0R1DI2I F/IOOO 
1470 DISt-"DI STANZA « "6STR* IDI ) 

1480 FOR 1-1 TO LEN<D1S«> 

1490 L-ASCISEG»(DIS*, 1.1)1 
1300 CALL HCMAR(22,4*I;L) 
iato «*T i 

1320 GOSUB 3110 
1530 GOTO 3670 
1340 CALL CLEAR 
1330 FOR 1-1 TO 2 
13*0 PftlNT 'COORDINATE PUNTO") I 
1370 IfPUT ■ ASCISSA - -.Ptl.ll 

1380 I«UT ' ORDINATA - ':P<I,2> 

1390 PftlNT 
1600 «IT I 

1410 PRINT 'IM-(KI*I2> /2 
1620 PftlNT : : : 

1630 IR*(P(1, l)+P12,ll>/2 
1640 YR»(P(l.2>*P(2.211/2 
1630 PRINT 'COORDINATE Pt-NTO «DIO: ' 

16*0 PftlNT * RC) INT110O»IMl / 100» ', ') 1NT ( 10O*YNl /1001 

1670 GOSUB 3110 
1680 GOTO 3670 
1690 CALL CLEAR 

t700 PftlNT 'EDUAZIOtt ESPLICITA DELLA RETTA?': s 
1710 PRINT ' Y-flK+N*!: 

1720 PRINT '«-COEFFICIENTE ANGOLARE' 

1730 PRINT -N-OROINATA ALL'ORIBI«"l I s 
1740 PRINT "VUOI OTTEfCRE 1 0 2 RETTE?" 

1730 imrr n 

1760 IF N-l TFEN 1800 
1770 IF N-2 TFEN 1800 

1780 PRINT -SPIACENTE, NON POSSO FARLO" 

1790 GOTO 1750 
1800 FOR 1-1 TO N 

1810 PRINT ■PARAPETRI DELLA RETTA*| I 

1820 IWHTT - LA RETTA E* PARALLELA ALL'A99E Y? 

1830 IF SEB9(RISP9, I f l)<>'S' TFEN 1860 

1840 GOSUB 3720 

1830 GOTO 1880 

1860 INPUT ' H - 'stilli 

1870 I«UT ' N - *iO(Il 

1880 PRINT 

1890 «IT I 

1900 CALL CLEAR 

1910 GOSUB 3220 

1920 FOR 1-1 TO N 

1930 IF PftlI >< >1 TFEN 1960 

1940 GOSUB 3770 

1930 BOTO 2330 

1960 IF mim TFEN 2160 

1970 IF mill-1 TFEN 2160 

1980 FOR CO_«6 TO 26 

1990 RI9A-10—(hU >*<C0L-161*D( I) 1 

2000 IF RIBA<2 THEN 2140 

2010 IF RIGAMB THEN 2140 

2020 DIFF-RIGA-1NT (RIGA) 

2030 IF D1FFF.7 TFEN 20G0 

2040 IF DIFFF.43 TFEN 2100 

2030 IF DIFFF.2 TFEN 2130 

2060 CALL FCHAR! INT (RIGAI , COL, 130*1*0) 

2070 GOTO 2140 

2090 CALL HCHAR(lNT(RIGA>+t,COL,129*1*8) 

2090 GOTO 2140 

2100 CALL «HAR(INT (RIGA) *1.COL. 128*1*81 
2110 CALL HCHARl INT (RIGA) .COL, 132*I*B> 

2120 GOTO 2140 

2130 CALL HCHAR1INT1RIGA).COL,131*1*81 
2140 NEIT COL 


RISP» 
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2150 

2140 

2170 

m 

2200 

2210 

2220 

7230 

2240 

2230 

^270 
2280 
2240 
2300 
2310 
2320 
2330 
2340 
2330 
2360 
7370 
73GO 
2390 
2400 
2410 
2420 
24 30 
2440 
2450 
2460 
24 70 
2460 
2490 
2500 
2510 
2520 
7530 
2540 
2550 
2360 
2570 
2560 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2600 
2690 
7700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2760 
2790 
2000 
2010 
2620 
2830 
2040 
2050 
2060 
2070 
2000 
7890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 


Y«("6STR9<M<!> >&"> *X-M "6STR6 <C <1 > 


RETTA* 


29' 

3000 

3010 


GOTO 2270 
FOR RI0A-2 TO 10 
col«iò+< io-ri 8 A-ocm/mi> 

IF COL <6 T*CN 2260 
1F COL>26 THEN 2260 
D1FF-C0L-INT(C0L> 

IF DIFF>.499 ThCN 2240 
CALL HCWR(RIGA, INT(COL), 130*I«B> 

GOTO 2260 

CALL HCKAR(RIGA,INT(COL>,134♦1*0) 

CALL HCHAR(RIGA,INT(COL)+ 1,I334I»0) 

NC1T RIGA 

RET*-"RETTA M R.STR« ( 1 > 8 r a a 
FOR K-l TO LEN(RET4) 

L-A9C(9EG«(RET 6 .K, 11 ) 

CALL HCHARU9*!, 3*K,L> 

NFXT K 
GOTO 2340 
G0SU6 3620 
NEXT 1 
GOSllB 3110 
GOTO 3670 
CALL CLEAR 

PRINT "RETTA PASSANTE PER DUE PUNTI"iii 

PR1NT 'SCRIVI LE COORDINATE DEI DUEPUNTI PER I DUALI PASSA LA 
INPUT "Xl.Yl - "aXt.Vl 
INPUT "X2.Y2 « " 5 X2,Y2 
IF XI 0X2 THEN 2510 
PRINT "EQUAZIONE DELLA RETTAa“ 

PRINT M X-'-SSTRtlXl ) » 1 

INPUT "VUOI IL GRAFICO DELLA RETTA?"a RIf 

IF 9EGl<Rl*,l t l><>"9" THEN 610 

N— 1 

PA <I)»| 

M<1>-X| 

GOTO 1900 

MM»(Y2-Y1)/(X2-M1 ) 

NN-(YI»X2-X1«Y2)/<X2-KI> 

PRINT "EQUAZIOfC DELLA RETTA»"il 

PRINT * Y- ("iSTRftl INT (IOO-MM)/ 100) 1 “ t »X<M " | STRI ( INT < ] 00«f*J) / 100) | 

INPUT "VUOI IL GRAFICO DELLA RETTA?"rRI® 

IF SEG*(Rl«,1,1)<>"6- THEN 610 
N-l 

n < ì > » tNT ( ioo«rvi> / ioo 
Q(1)"INT <100*NN>/100 
GOTO 1900 
CALL CLEAR 

PRINT -RETTA DI DATO COEFF. ANGOLA-RE E PASSANTE PER UN PWTO. ,l «tl 
PRINT -SCRIVI IL COEFF. ANGOLARE IN FORMA DECIMALE" 

INPUT - M • B sMU) 

PRINT ; a"COORDINATE DEL PUNTO- 
INPUT "X.Y-"iXt,Y1 
0(1)-Yl-h(l)*X1 

PRINT ::"EQUAZIONE DELLA RETTAa” 

PRINT " Y-( M ISTR«(M(l))|")«X^C ,, lBTRt(INT(a<I)>)| M )": | 

INPUT “VUOI IL GRAFICO DELLA RETTA?": RIO 

IF SEQKRlt, THEN 610 

N-l 

GOTO 1900 
CALL CLEAR 
PAR < L)-0 
PAR <2)—O 

PRINT "PUNTO DI INTERSEZIONE TRA DUE RETTE":a : 

PRINT " Y-M*X*N"at 

FOR I«1 TO 2 

PRINT “PARAMETRI DELLA RETTA*|I 

INPUT - LA RETTA E’ PARALLELA ALL'ASSE Y? "iRI« 

IF SEGt(RI«, I. 1JO-0* T«N 2860 
G09UB 3720 
PAR 411 • I 
GOTO 2800 
INPUT - fi 

INPUT - N 

PRINT 
NEXT I 

SOMMA-PAR(1)♦PAR<2)♦I 
ON SOMMA GOTO 2920.3030,3070,2930 
IF M ( 11 OM< 2> THEN 2950 
PRINT "LE RETTE SONO PARALLELE*>i 
GOTO 2990 

X-(Q(2)-Q(l)>/(MCi)-M(2n 

Y"M(1> *X+Q(1) 

PRINT "COORDINATE DEL PUNTO INTERSEZIONE»"a a 

PRINT - ("1INT (100-X)/1001"«"IlNT <100*Y>/I00)a 

INPUT “VUOI IL GRAFICO DELLE RETTE?"»RJ# 

IF SEGOIRlt,t,ll<>"8“ THEN 610 
N-2 


”:0(I) 


5 
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'.9SO RETURN 
7GQi.< COLL CLGAR 

;«<'■> rrimt - FIN E":s: 

TRIO GOSUP 3110 
7<?r>> END 

Il programma ha la seguente struitura: definizione caratteri speciali 
- menù - varie sezioni con funzioni diverse • subroutine. Agli stessi ca¬ 
ratteri sono stali attribuiti più numeri appartenenti a diversi soitoinsicmi 
in modo da poterli rappresentare in colori diversi. Due rate presenti 
contemporaneamente sullo schermo saranno date, quindi, con differenti 
colori e questi serviranno da riferimento per associare loro le equazioni 
esplicite. Alle linee 630-710 si trova il menù principale. La scelta viene 
accolta con l’istruzione CALL KEY, pertanto non è necessario premere il 
tasto ENTER: alla linea 770 un branch rinvia alle varie sezioni. La prima 
di queste occupa le linee da 780 a 1330 ed in essa viene dato il concetto 
di coordinate di un punto. L’origine degli assi cartesiani è posta al cen¬ 
tro dello schermo per visualizzare i quattro quadranti e permettere l’uso 
di coordinale con valore negativo. Sul piano cartesiano trovano posto fi¬ 
no a tre punti contemporaneamente. Da linea 1070 a 1150 vengono 
stampate linee di costruzione tratteggiate, parallele agli assi. In 1170 il 
flag FC viene posto uguale a 1 se il punto è caduto fuori campo e quindi 
non t stato stampato. Nelle linee 1180-1220 viene dato il colore di ogni 
punto e, a Ranco, le sue coordinate; se FC = 1 appare la scrìtta FUORI 
CAMPO. Per queste operazioni non è stata usala l'istruzione PRINT poi¬ 
ché, in tal modo, il grafico si sarebbe spostato verso l'alto. 

La seconda sezione occupa le righe da 1340 a 1530, in essa si trova la di¬ 
stanza tra due punti. 

La distanza si trova applicando il teorema di Pitagora (linea 1450) e il 
valore viene dato con non più di tre cifre dopo la virgola (linea 1470). 
Nelle linee 1540-1680 si trova il punto medio tra due punti dati. XM e 
YM (1630-1640) contengono i valori medi rispettivamente delle ascisse e 
delle ordinate, che costituiscono, appunto, le coordinate del punto me¬ 
dio. 

Da 1690 a 2360 trova posto la prima sezione dedicala alle rette. Il valore 
di N (INPUT di Linea 1750) indica se si vuole una sola retta o due con¬ 
temporaneamente. I coefficienti angolari Mll) e le ordinate all'origine 
QUI devono essere introdotti in forma decimale, non sotto forma di fra¬ 
zione. Il valore di PAH) è 1 se il programma passa alla subroutine di li¬ 
nea 3720, nell’eveniiialità che una retta sia parallela all’asse delle Y. In 
1960, se il coefficiente angolare MI II é maggiore di 1 il programma con¬ 
sidera la funzione inversa e si pone un punto in ogni riga piuttosto che 
in ogni colonna. 

Nelle righe 2020 e seguenti, in base al valore della variabile DIFF, si 
stampa il carattere più idoneo a rappresentare la retta in quel punto. 
Da 2370 a 2600, accettate in input le coordinate dei due pumi, viene da- 
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ta l’equazione della retta passante per essi (2540) e, su richiesta, la sua 
rappresentazione grafica. In 2420 si distingue se i due punti hanno la 
stessa ascissa, poiché in tal caso la rena risulta parallela all’asse Y. Da 
2610 a 2730 trova posto la breve sezione per trovare l’espressione analiti¬ 
ca di una retta di un dato coefficiente angolare passante per un punto; 
l’ordinata all’origine è calcolata alla linea 2670; per ottenere il grafico si 
rimanda sempre alla linea 1900. Nell'Intervallo 2740-3880 si calcola il 
punto di intersezione tra due rette. Prima di introdurre i valori dei para¬ 
metri viene chiesto se la retta è parallela all’asse Y poiché, in tal caso, si 
passa alla routine di riga 3720. La variabile PAR(I) memorizza quali ret¬ 
te siano parallele all’asse Y, inoltre, la condizione di parallelismo tra le 
due rette è rilevata dal confronto dei loro coefficienti angolari (linea 
2920). Se le rene si intersecano, le coordinate del punto di incontro ven¬ 
gono calcolate alle linee 2960-2960. Seguono le linee dedicate all’output. 
Le subrouiine occupano l’ultima pane dd programma. Alla riga 3110 
un breve commento musicale; non è essenziale, ma occupa una minima 
pane di memoria. A 3220 c'è la routine per tracciare gli assi canesiani; i 
caratteri speciali sono stati definiti all'inizio del programma. Alla linea 
3460 viene scritto il titolo; anche qui si è fatta qualche concessione 
all'estetica, ma il Ti 99/4A, con i suoi 16 K, non presenta assillanti pro¬ 
blemi di memoria. Alla linea 3670, una routine per stampare PREMI 1 
PER PROSEGUIRE, un messaggio ricorrente al termine di varie sezioni. 
Alle linee 3720. 3770 e 3820 tre brevi routine che vengono richiamate 
quando le rette sono parallele all’asse Y; in questo caso, come è già sta¬ 
to detto, l'equazione è del tipo x=K e la stampa dei pumi che costitui¬ 
scono il grafico può essere (atta con l'istruzione CALL VCHAR (3790). 
Nelle ultime righe si stampa la parola FINE e termina il programma. 


Parabole 

Mentre il precedente programma era prevalentemente indirizzalo ad uno 
studente di scuoia media inferiore, quello che segue è più adatto a chi 
segue studi superiori. 

La parabola è il luogo geometrico dei punti equidistanti da un punto (is¬ 
so, detto fuoco, e da una rena, detta direttrice. Analiticamente è data 
dall'equazione di secondo grado: 

y = co 1 + bx +e 

Le coordinale del vertice sono legate alle costanti a, b, c dalle seguenti 
uguaglianze: 


x = 


b 

2n 


y 


f»’-4oc 
4 o 
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Il fuoco ha la stessa ascissa del vertice e ordinata 

1 ft J -4<7C 

y ~ 4o 4 a 

La direttrice è una retta di equazione: 

J_ b 1 -^ac 

^ 4j 4a 

L'asse di simmetria è una retta di equazione: 



Il programma, accettati in input i valori delle costanti a, b, c, fornisce 
tutti gli elementi su esposti e i punti di intersezione con gli assi cartesia¬ 
ni. La costante c fornisce il punto di intersezione con l’asse y, mentre le 
intersezioni con l'asse x sono date, se esistono, dalle soluzioni reali 
dell’equazione di secondo grado 

«u^+fer + c - 0 

Il programma fornisce inoltre i punti di intersezione tra una parabola ed 
una retta generica, anche parallela all'asse y. Le coordinate di tali punti 
sono le soluzioni del sistema tra l’equazione della parabola e quella della 
retta. 

Un'ulteriore funzione svolta dal programma è lo studio analitico di una 
parabola passante per tre punti dati. A tale riguardo si noti che se una 
parabola passa per il punto di coordinate (3,2), sostituendo questi valori 
nell’equazione generica della parabola, si ottiene: 

2 = 9o+3b+c 

Quindi, dati tre punti, si ottengono 3 equazioni di primo grado a tre in¬ 
cognite che, poste a sistema, danno i valori di a, b, c. 

Per quanto riguarda la grafica, è stato adottato l'accorgimento descritto 
all'inizio del capitolo, con il risultato di avere l'output su una “finestra” 
dotata di 56 colonne e 80 righe. Inoltre t previsto un cambiamento di 
scala che permette un dimensionamento grafico definibile dall’utente; 
questo, rispetto al dimensionamento automatico, presenta il vantaggio di 
consentire una visione d'assieme o di una parte, ingrandita, del grafico. 
Un’ultima particolarità: l'equazione della retta definita nel programma 
ma si ottiene di volta in volta ponendo uguale a zero il coefficiente del 
termine di secondo grado nell'equazione della parabola. 
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) PFM *«*<*»•«#►•♦««»♦• 

> REM • ■* 

5 «DI • GEOfCTRIA * 

} REM • ANALITICA • 

> REM • - « 

> REM • PARABOLE. • 

) Rtn • « 

? REM ..« 

; FEM di; SERGIO BORSANI 
j REM vvriionr: TI BASIC 

> CLEAR 

) CALL CHAR<1?B, "OOOOOOOOOOOO6060") 
) CALL CHAR 1129, -000000006060" ) 

) CALI CHAR(130 •00006060“) 

• CALL CHAR!131,"6060") 

:* CALL CHAR ( I 32. -0000000000000606 “ > 
’j CALL CHAR (133, “0000000000006666" > 

> CALL CHAR(l34,"0000000060600606-> 

> CALL CHARf 135. "0000606000000606** > 

> CAU CHAR (136, -6060000000000606- > 
:• CALL CHAR f 1 37, "000000000606" ) 

> CALI CI IAR ( 13B, -0000000006066060" > 
:• CALL CHAR <139, "000000006666") 

> CALI. CHAR (|40, -000*060600606" > 

;• CALI- CHAR ( 14 I6060'X»0006Ù6 " ) 

) CALL CHAR(142, -'->0000606“ 1 

> CALL CHAR ! 143. ' 0000060600006060“ ) 
? CAI L CIrAR( 144, "000006066060 M > 

:• CALL CHAR ( I 45," 00006666 "> 

> CALL CHAR(146,"60600606“> 

> CALL CHARf147,"0606") 

> CALI. CHAR <146, “0606000000006060" ) 

> CAU CHAR! 149,-060600006060•'> 

) CALL CHAR(150,*06066060") 

? CALL CHARf151,“6666-) 

• CALL CHAR ( 152, "0301010101010101 - 1 
) CALL CHAR(153,"Eroi") 

) CALL CHAR ( 154, "OFOIOIOIOIOIOIOI") 
) CALL CHAR ( 155, “FFO10101") 

‘ CAlL CHAR! 136. “FF0101010I010101“> 
) CALL CHAR(157,"0“> 

) CALL CHAR ( 156,-OOCOCOOOOOCOCO-) 

> CALL CHAR (159 "00303000003030“) 

> CALL CHAR<33, 701070407") 

) CALL CHAR (36, "OOOCOCOOOOOCOC"> 

» CALL CHAR (37.-00030300000303") 

) D€F Y=A*X*X»è#)C*C 

> REM « TITOLO • 

) FOR C«13 TO 15 

r CAlL COLOR<C, 2, 16) 

> NEXT C 

I CALL COLORI16,9,16) 

> FQR RIGA*4 TO 22 

> CALL HCHAR<RIGA,3,157,12) 

i yT tira 

' CALL HCHAR< 13,3.153.12) 
t CALL VCHAR(4 1 Ò.l52 1 l9> 
i CALL MCHAR<13,0, I3i) 
l A*-.? 

' B--IO 

> C—32 

• GOSUB 2430 

■ A*.“GCOt*TRIA- 

> FOR J*1 TO LEN1A,) 

> L=-ASC(SEG«(A*,J. 1) » 

CALL MCHARU2. li«J,L> 

' *XT J 

«""ANALITICA" 

' FOR J-l TO LEN(B*> 

' L=ASC(SEG*(B«, J. 1) I 
‘ CALL «CHARf 14, li«-J,L> 

' «UT J 
C,« "PARABOLE* 

FOfi J=l TO LEN CC*> 

' L-ASC(SEB»(C*.J,1>) 

1 CALL HCHARdS, [&*J,L> 

' ICXT J 

CALL SOUND CI 50,639, 2) 

CALL SOUND! 150,387,2) 

CALL SOUND(300,323,2> 

CALL SOUND ( 300, 440, 21 
CALL SOUND (300, 698,2,440,51 
CALL S0UND(30O,7B4,2.5B7,5> 

CALL SOUNDU50.698, 2,392,5) 

CALL S0UND(150,659:2) 

CALL SOUND ( 100Ò, 69B, 2,440,3) 
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9*0 POR T-l TD 1000 
970 NEXT T 
960 CALL CLEAR 
990 PRINT “PREMI:*:: 

1000 PRINT ”1 STUDIO DELLA PARABOLA*s : 

1010 PRINT "2 INTERSEZIONE CON UNA RETTA*:: 

1020 PRINT *3 PARABOLA PASSANTE PER TRE PUNTI*:: 

1030 PRINT ”4 FINE*:::: 

1040 CALL KEY(O.K.S) 

1050 IF S»0 THEN 1040 
1060 1F 1049 THEN 1110 

1070 IF 1030 THEN 16B0 

1060 IF K«SI THEN 2970 

1090 IF K=52 THEN 4490 

1100 GOTO 1040 
1110 REM «STUDIO PARABOLA' 

1120 CALL CLEAR 
1130 SCELTACI 

1140 PRINT " EQUAZIONE DELLA PARABOLA”:: 

USO PRINT TAB(9);“Y«A*X *; 

1160 CALL HCHARI24,16,351 
1170 PRINT TAB ( 15) ; "•»B« J'C* : : : : 

1160 GOS'JB 2710 
1190 CALL CLEAR 

1200 VX*INT<-B«1000/!2«A>>/1000 
1210 DELTA=B''2-4»A»C 
1220 VY=I NT < - DELTA« 1000/(4*All/1000 
1230 PRINT "COORDINATE DEL VERTICE:':: 

1240 PRINT "V - I“1VXI“ ”:VYi*>*::: 

1250 PRINT “ASSE DI S1HMEÌ .? * A: ’’ : : 

1260 PRINT *K ■'■tVX:.- : 

1270 YF=lNT(i?00*(l/(4*A>-DELTA/<4iAl )1/1000 
1260 PRINi -COORDINATE DEL FUOCO:*:: 

12«0 PRINT ”F • (*1VX1“ *ìYFl*)*:s: 

1300 YD-INTIIOOO* ( - 1/ (4»A»-DELTA/ (4«A> > 1/1000 
1310 PRINT -DIRETTRICE:*:: 

1320 PRINT *Y YD:: : : 

1330 B05UB 4010 

1340 PRINT “ tNTERSEZ IONE CON L'ASSE Y:“:: 

1330 PRINT -Y “*(C:: : 

1360 IF DELTA;»0 THEN 1390 

1370 PRINT "LA PARABOLA NON INTERSECA L’ASSE DELLE X.*:::: 

1300 GOTO 1430 

1390 X1=(-B-SQR(DELTA)1/(2«A> 

1400 X2= t-B'SQRIDELTAl1/(2*A) 

1410 PRINT “INTERSEZIONE CON L’ASSE X:*:: 

1420 PRINT "XI • "t INT 11OOO*X11/1000, "X2 «*I INT ( 1000*X2) /1000. 

1430 INPUT -Virai IL GRAFICO? *:R« 

1440 IF SEG*tR*, 1, TXN 1460 

1450 GOTO 980 

1460 SCALACI 

1470 GOSUB 4290 

1400 GOSUB 2430 

1490 IF SCELTA-2 THEN 2170 

1500 IF SCELTA-3 THEN 3790 

1510 GOSUB 4110 

1520 GOSUB 4010 

1530 IIPUT "VUOI IL GRAFICO CON UN ALTROFATTORE DI SCALA* 5 IS/N) 

1540 IF SEGtlRt, 1, U-*5" THEN 1560 
1550 GOTO 9S0 
1560 PRINT : : : : 

1570 A'A/SCALA 
1580 C=C»SCALA 
1590 KK-KM SCALA 

1600 INPUT “SCALA? (N>0) SCALA 

1610 IF SCALAC-0 THEN 1600 

1620 A-A*SCALA 

1630 C’C/SCALA 

1640 IF SCELTA-3 THEN 3950 

1650 CALL CLEAR 

1660 GOTO 1470 

1670 REM «tNTERSEZIOtC* 

1600 C«_L CLEAR 

1690 PRINT "INTERSEZIONE CON UNA RETTA”:::: 

1700 VERT-0 

1710 INPUT "LA RETTA E’ PARALLELA ALL’ASSE DELLE 'T> <5/Nl ":R: 

1720 IF SEGKR4, 1, ll'“N" THEN 1740 
1730 VERT'l 
1740 PRINT :: 

1750 INPUT “VUOI SCRIVERE I COEFFICIENTIIN FORMA FRAZIONARIA? - 
1760 IF SEG*<R4.I.I>-"N“ THEN 1930 
1770 PRINT -PARABOLA:*:: 

1760 GOSUB 2770 
1790 PRINT :::: 

1800 IF VERT»! T1CN 3*20 
101O PRINT “RETTA:":: 
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1B20 INPUT -COEFF. ANGOLARE 0 CM1,MT) "jMLH: 

1930 IF H2O0 THEN 1060 
PRIWT "ERRORE 1 " : : 

1850 GOTO 1020 
lBòO lt»M]/H2 

ÌH70 INPUT "TERMINE NOTO 0 (01.02) M :Q1*C2 

isso if 0200 then ipio 

Ifl90 PRINT *'ERRORE: 

IW GOTO 1070 

1910 C*01/C2 

1920 GOTO 1990 

1930 PRINT "PARABOLA:-;: 

1940 INPUT “ <A, B, C) -:A.B.C 
1950 PRINT : : : : 

I960 I r '/CRT»- l THEN 3700 
1970 FRINT "RETTA:":: 

I960 If^UT *(M,Q> 

I *90 Ff> I NT : : : : 
rooo ao=a 
7010 &B=B 
2020 CC*C 

:c3o B!SCJ»«- fB-m “2-9«A* (C-0) 

2040 IP DISERBO THEU 2000 

20*’ PRINT "NON ESISTONO PUNTI DI IKTEB-SCZ IONE": : : : : 

.2060 GOSUB 4010 
20*»0 GOTO 2150 

20* • XI = ( - ( B-M > -SOR ( D1SCR > ) / < 2*A> 

2090 X° B <- f B-M)-*SCR <DISCR) ) / <2*A> 

210*) Y1»N«X1+P 
CtIO Y2=M»X2*Q 

2120 PPINT "PUNTI DI INTERSEZIONE:"s : 

2120 PRINT "PI = !NTtlO00«Xl>/lOC0; , \"t INTC1900«Y1>/iOOOt"> M : 
2I4<- PRINT "P2 = (•:INT(!000«X2)/l'X)0;- t ";!NT''1000*Y2)/10.^0: 

2!50 SCEl TA = 2 
2560 GOTO 1430 
2170 A=C* 

2IS*> B=K 

:i®o c-c 

720* GOSUB 2450 
2210 GOSUB 4 l °0 
2?» GOSUB 4010 

?2> INPUT "VUOI IL GRAFICO CON UN ALTPOTATTORE DI SCALA? '5/N) 
224v IF SEG6'R*. I. I > e **S- THEN 22&0 
goto 9Bo 

22i v FRI NT :: :: 

27? ’ A;~AA/SCALA 
27Bv Cr-CC»SCALA 
7290 C*0ESCALA 

2VS .• INPUT "SCALA* (N>0> *:SCALA 

2210 IF SCAUK-0 THEN 2300 

7320 AA^AA*SCALA 

23» CC=CC/SCALA 

2340 0=0/SCALA 

2350 A*=AA 

2360 B*BB 

2370 C=CC 

r:eo call clear 

2390 GOSUB 4290 

7400 GOSUB 2430 

2410 GOTO 2170 

2420 REM * ROUTINE STATFA» 

2430 FOR XX—12 TO 12 
2440 X-XF-.75 

2450 IF ABS<Y)>|0 THEN 2550 
2460 D1FF*Y-INT (Y) 

2470 IF DIPF<. 1 THEN 2510 
2480 RIGAI “INT fY) *1 
2490 P1»INT(DIFF«4>*1 
2500 GOTO 2530 
2510 RIGAI-INT<Y) 

2520 PI*4 

2530 CALL HCHARC13-R10A1, 16+XX, 127+P1) 

2540 GOTO 2560 
2550 P1=0 
2560 X~XX-- 25 

2570 IF ABS(Y) >10 TFCN 2690 
2590 DIFF®Y-INT(Y» 

2590 IF DIFFC.l THEN 2630 
2600 RIGA2=»INT(Y)^1 
2610 P2=(|NT (DIFFM> + 1>«5 
2620 GOTO 2650 
2630 RIGA2-1NT(Y) 

2640 P2-20 

2630 [F RIGAI =RIGA2 THEN 2670 
2660 Pl-0 

2670 CALL HCHAR(13-RI6A2, 16>XX,127^P1+P2) 
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2680 NEXT XX 
2690 RETURN 

2700 REM » INPUT A.B.C * 

2710 INPUT "VUOI SCRIVERE LE COSTANTI INFORNA FRAZIONARIA? (S/N) "lR« 
2720 PR1NT ::: 

2730 IF SEO*<R*.l,l)-*S" THEN 2760 
27«0 INPUT "COSTANTI? CA r 8,C) "sA,B,C 
2730 GOTO 2920 
2760 REM «FRAZIONI» 

2770 INPUT " A - (A1.A2) ":AI,A2 
2780 IF A2O0 THEN 2Ò90 
2790 PRINT ::"ERRORE TI !": : : 

2BOO GOTO 2770 

2810 INPUT * B - (B1.B2) *eBI,B 2 
2820 IF B2< >0 THEN 2890 
2830 PRINT ::"ERRORE!'!":ss 
2840 GOTO 2810 

2830 INPUT ■ C ■ (CI.C2) ":C1,C2 
2860 IF C2<>0 TFCN 2890 
2870 PRINT ::-ERRORE’!'!":s: 

2880 GOTO 2830 

2890 A-AI/A2 

2900 B-BI/B2 

2910 C=CI/C2 

2920 IF A< >0 TVCN 2930 

2930 PRINT : : "NON RISULTA UNA PARABOLA! "ss 
2940 GOTO 2710 
2930 RETURN 

2960 REM «PARABOLA PER 3 P« 

2970 CALL CLEAR 
2980 SCELTA*»3 

2990 PRINT "PARABOLA PASSANTE PER TRE PUNTI, "si: 

3000 INPUT "VUOI SCRIVERE LE COORDINATE IN FORMA FRAZIONARIA? *:f» 
3010 IF SEQ»(R*,I,l)-"3" THEN 3070 
3020 PRINT .ss* 

3030 PRINT "PUNTO ls“s: 

3040 INPUT "COORDINATE - ’ (X,Y> ":XI,Yl 
3030 PRINT ss“PUNTO 2s‘:t 
3060 INPUT "COORDINATE? (X P Y> "SX2.Y2 
3070 PRINT ss"PUNTO 3:":: 

3080 INPUT -COORDINATE - ’ (X,Y> "|X3,Y3 

3090 PRINT ss:: 

3100 DI-X1*X1 

3110 D2“)1 

3120 D3=l 

3110 D4-X2«X2 

3140 D5=X2 

3130 D6-I 

3160 D7«X3*X3 

3170 DS-X3 

3100 D9M 

3190 GOSUB 3990 

3200 DD«OETERM 

3210 IF DD< >0 THEN 3270 

3220 PRINT :::: 

3230 PRINT "SPIACENTE, NON POSSO DARE LARISPOSTA. "s : s 

3240 FOR T»l TD 1000 

3230 NEXT T 

3260 GOTO 980 

3270 Dl*=Yl 

3200 D4-Y2 

3290 D7-Y3 

3300 GOSUB 3990 

3310 DDI-DETERM 

3320 DI-I1»X1 

3330 D4-X2*K2 

3340 D7*I3«X3 

3330 D2-Y1 

3360 DS=Y2 

3370 D9-T3 

3380 GOSUB 3990 

3390 DD2-MTTERM 

3400 D2»X1 

3410 D5=X2 

3420 DB-X3 

3430 D3=YI 

3440 D6=Y2 

3430 D9*=Y3 

3460 GOSUB 3990 

3470 DD3-DETERM 

3480 A»INT(1000»DD1/DD)/1000 

3490 B**1NT(IOOO«OD2/DO>/IOOO 

3300 C*INT ( 1000«DD3/DD) /1000 

3310 PRINT " Y-A«X *1 

3520 CALL HCHAR(24,14,33) 

3330 PRINT TAB(I3)I"«B*X«C"i: : 
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3540 PRINT -A ■'* J A 
3550 PRIN7 “B »" t B 
3360 PRINT -C 
3570 SCELTA-4 

3360 INPUT -VUOI PROSE SU IRE CON LO 
3590 IF SEGfttRft, 1, 1>«"S" TFCN 1190 
3600 GOTO 1430 
3610 REM «RETTA VERTICALE* 

3620 PRINT -RETTAi i 
3630 PRINT TABI IO) ; "K-K* i i z 

3640 INPUT “SCRIVI K IN FORMA FRAZIONA- RIA <KN,KD> -4KN,KE> 

3650 1F KOOO THEN 3600 

3660 PPL NT :*-ERRORE* • '-su 

3670 GOTO 3640 

36BO KK»KN/KD 

3690 6070 3730 

37CO PRINT -RETTA:-:: 

3710 PRINT TAB ( 10) ; m X~K': : : 

3720 INPUT "K « M ;KK 
3730 PRINT i s : 

3740 X-KIJ 

1*50 PAI NT "PUNTO DI INTERSEZ IOf«: - : t 

I7fcO PRINI -P - (-HNT(1000«KK)/1000;", "i tNT<1000»V)/1000> - 
3770 SCELTA»? 

7780 GOTO 1430 

3790 DF»KK-INT<KIO 

3600 IF DF>. | THEN 3030 

3310 CLN=16«KK 

»?0 GOTO 3920 

3870 CLN°l7*KK 

3040 DOPPINI (DF*4)+1 

3330 QN DDF 0010 3060,3800.3900,3920 

3860 *>130 

3070 GOTO 3930 

388»? 1C-139 

3890 GOTO 3930 

3900 NO 36 

39 !0 GOTO 3930 

3920 *>37 

3930 CALL VCHAR13,CLN,NC, 20) 

3940 GOTO 1510 

3950 KK*FK/SCALA 

3960 CALL CLEAR 

3970 GOTO 1470 

3990 REM «DETERMINANTE* 

3990 OETERM<=DL* (D3*D9-D0«D6) -D2* (D4#D9-D7#D6) +03* CD4*D0-D7«D5) 

4000 RETURN 

4010 Ctt»-* PREMI 1 PER CONTINUARE* 

4020 FOR J»I TO LENfCC*) 

4030 L=ASC (SEGA (CC4.J .1> > 

4040 CALL HCHAR(24,3«J i L) 

4050 rCTT J 

4060 CALI KEV(O.K.S) 

4070 IF S°0 THEN 4060 
4080 IF K< >49 THEN 4060 
4090 CALL CLEAR 
4100 PETIFN 

4110 CALL SOUND (150, 440, 2) 

4120 CALL SOUND (150,466,2) 

4170 CALL SOUND (300,523,2) 

4140 COLL SOUND (300, 440, 2) 

4136 CALI SOUND(300,507,2) 

4160 CALL SOUND ( 300, 704,2 > 

4!70 COLL SOUND(500,639,2) 

4180 RETURN 

4190 CALL SOUND (300,690, 2) 

4200 CALL SOUND (300,932, 2) 

4210 CALL SOUND (300, 704,2) 

4220 CALL SOUND (300,680,2) 

4230 CALL SOUND (150,932, 2) 

4240 CALL SOUND (150.080,2) 

4250 CALL SOUND (130,784, 2 ) 

4260 CALL SOUND ( 150, 0BO, 2 > 

4270 CALL SOUND (500,690. 2) 

4290 FFTL’PN 

4290 REM «ASSI CARTESIANI» 

4300 CALL CLEAR 

4310 FOR CO-13 TO 15 

4320 CALL COLOR (CO. 2. I) 

4330 NEXT CO 

4340 CALL COLOR (16, 9,1) 

4350 CALL HCHAR( 13,3, 153,28) 

•3e>0 CALL VCHA*(3,16,132,20) 

4270 FOR C0L0N*=6 TO 26 STEP 5 
4780 CALL HCHAH ( 13, COLON, 153) 

4390 NEXT COLON 
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4400 CALI HCHAR<li.16,156) 

4410 CAU- HEHAR(0.16.>54) 

4420 C.AI.L KCHARIl6,16.154) 

4430 SCAI.t'"SCAl.A® 1 i "6STR4 fSCALAI 
4440 FDR J--1 TO LENC5CAL») 

4450 L=ASCtSEG*(SCALA,J,1)> 

4460 CfiLL HCHAFi’ (1,2+J.L) 

4470 NEXT J 
44eO PETURM 
4 490 CALI. ClFAR 

4500 PRJNT " FINE": : :t : : : : : : 

«510 G0SU6 4190 
4520 FOR T-1 TO 500 
4530 NEXT T 
4540 COLL CLEAR 
4550 END 

Nelle linee 210-560 sono definiti tulli i caratteri spedali per ottenere gli 
assi cartesiani ed i punti che formeranno il grafico. In 560 è definita la 
funzione che è l’espressione analitica della parabola. Il titolo occupa la 
parte seguente fino alla linea 960. Chi volesse ridurre tutto all’essenziale, 
senza nulla concedere all'estetica, può sostituire questa parte con la sem¬ 
plice istruzione PRINT TAB(IO);" PARABOLE" ::::::. 

Il menù (990-1100) prevede il salto a tre sezioni di lavoro ed uno alla fi¬ 
ne del programma; la scelta i accettata con l’istruzione CALL KEY. 

La prima sezione occupa le linee da 1110 a 1660. L’input dei dati avvie¬ 
ne in una routine posta alla riga 2700. Il carattere 35 che appare 
neU'istnizione 1160 è stato ridefinito in modo da rappresentare l’espo¬ 
nente della variabile X nel termine di secondo grado. DELTA rappresenta 
il discriminante ò J -4ac, VX e VY sono le coordinate del vertice, VF è 
l’ordinata del fuoco (l’ascissa è la stessa del vertice) e, proseguendo, YD 
i l’ordinata dei punti che costituiscono la direttrice. Al termine di ogni 
calcolo c’i la stampa dei risultati. A questo punto lo schermo è quasi 
completamente occupato e si rimanda alla routine di riga 4010 per invia¬ 
re il messaggio PREMI 1 PER CONTINUARE. Si prosegue con le interse¬ 
zioni della parabola con gli assi; C fornisce l’intersezione con l'asse Y 
(1350), mentre, perché esistano intersezioni con l'asse X, è necessario che 
sia DELTA = 0 (linea 1360); XI e X2 contengono le soluzioni della 
equazione di secondo grado ax 1 +bx + e=0 e pertanto forniscono i punti 
di intersezione con l’asse orizzontale. Per ottenere il grafico della para¬ 
bola é necessario rispondere affermativamente nell'input di linea 1430. 
La routine 4290 traccia gli assi cartesiani; la variabile SCALA è posta 
inizialmente uguale ad 1, successivamente la routine 2430 disegna il gra¬ 
fico. 1 salti condizionati alle righe 1490 e 1500 hanno effetto solo se si 
giunge in quest’area di lavoro provenendo dalle sezioni 2 e 3, altrimenti 
si prosegue con le due istruzioni GOSUB. La prima provoca un breve 
commento musicale che può ssere omesso, la seconda fa apparire il 
messaggio per proseguire. Le linee seguenti servono a cambiare il fattore 
di scala. La variabile SCALA rappresenta il valore di ogni intervallo se¬ 
gnato sugli assi c&rtsiani; inizialmente tale valore è posto uguale ad 1. 
Se SCALA = 2, ogni trattino rappresenta due unità, pertanto, se in un 
primo tempo il vertice della parabola cade fuori campo, ponendo il fai- 
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tort di scala uguale a 2, a 3, ccc., l'immagine verrà rimpicciolita ed il 
vertice della parabola potrà essere rappresentato all'Interno dello scher¬ 
mo. Viceversa, quando si studia l’intersezione con una retta, se l'eccessi¬ 
va vicinanza dei punti creasse confusione, ponendo il fattore di scala 
uguale a 0.5 o 0.2, si ottiene un'immagine ingrandita e più chiara in cer¬ 
ti dettagli. Unica limitazione, deve essere SCALA 0. Si consiglia di 
ambiare i valori con gradualità fino ad ottenere il grafico più soddisfa¬ 
cente. 

É interessante notare che il grafico ridotto o ingrandito della parabola si 
ottiene semplicemente ponendo A = A*SCALA e C= C/SCALA (linee 
1620-1630). 

Li seconda parte tratta l'intersezione tra una parabola ad una retta. I 
coefficienti sono, a scelta, accettati in forma frazionaria o decimale ed è 
previsto che la retta sia parallela aU'asse Y, nel qual caso la sua equazio¬ 
ne ìjt=*. La variabile VERT assume il valore 1 quando la retta è veni¬ 
ale. Per trovare i punti di intersezione sì risolve il sistema formato dalle 
equazioni della parabola e della rena. Sottraendo membro a membro si 
ottiene la seguente equazione di secondo grado: 

or 1 +(ò-m)jc + e-q=0 

dove ni e q sono i coefficienti dell'equazione della retta. 

Il discriminante è calcolato alla linea 2030 e, se questo non i negativo, si 
determinano le coordinate dei punti di intersezione (istruzioni 2080- 
2110). Per il grafico si rimanda alla linea 1430. Prima viene disegnata la 
parabola e, dopo aver posto A«0, B« M e C = Q, utilizzando lo stesso 
rido di stampa, si disegna la retta; infatti, togliendo dall'equazione della 
parabole il termine di secondo grado, si ottiene l'equazione di una retta. 
Alla linea 2960 inizia lo studio grafico ed analitico di una parabola pas¬ 
sarne per tre punti dati. Anche in questo caso si possono inserire le 
coordinate in forma frazionaria. Nella presentazione del programma si è 
già parlato di come vengono calcolate le costanti a. £>, c che compaiono 
nella equazione della parabola. Per risolvere il sistema viene usata la re¬ 
gola di Cramer. Alla linea 3990 si calcola il valore di un determinante di 
terzo ordine; DO i il determinante del sistema, mentre DD1, DD2 e DD3 
sono i determinanti che si ottengono da questo sostituendo i termini noli 
■gli elementi delta colonna formata con i coefficienti dell'incognita che 
si considera. 

A, B e C sono calcolale alla linea 3480 con una approssimazione a meno 
di un millesimo e, se si desidera proseguire con lo studio della parabola, 
il programma toma alla prima sezione. 

Le linee 3610 e seguenti sono occupate da diverse routine. La prima di 
queste i piuttosto una sottosezione dedicata all'input dei dati ed alla 
stampa di una retta parallela all'asse delle Y. In base al valore di DF 
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(3790) la retta occupa quattro diverse sottocolonne all’interno di ogni 
colonna, in questo modo gli errori dovuti all’approssimazione sono as¬ 
sorbiti dal grafìcìstno. 

Delle altre subroutine si è gii parlato nella descrizione del programma e 
non è necessario commentarle ulteriormente. 



_ CAPITOLO QUATTRO 

Ancora matematica 


Stadio di m faiuioM e ne derivate 

Lo studio di una funzione consiste nel determinarne l'insieme di Bisten¬ 
ti, od trovare eventuali intersezioni con gli assi, nella ricerca degli asin¬ 
toti, nel determinare gli intervalli dove f(x) è crescente o decrescente ed i 
massimi e minimi relativi, infine calcolarne il valore in corrispondenza di 
ikuni valori della variabile x. 

D programma si limita allo studio di quelle che sono le piò semplici tra 
le funzioni razionali, cioè i polinomi. 

La loro forma è pertanto: 

/W - + x+flo 

D programma è diviso in quattro sezioni: (1) calcolo di y=/(x) per de¬ 
terminati valori di x; (2) calcolo delle derivare; (3) determinazione della 
rota tangente alla curva in un punto; (4) ricerca degli intervalli dove la 
funzione è crescente e decrescente e dei pumi di massimo e di minimo 
(dativo. 

La ricerca dei pumi di intersezione con l'asse x può essere svolta con il 
fossimo programma. 

InizUlrneme bisogna indicare il grado di un polinomio ed i coefficienti 
delle potenze decrescenti della r, se manca una potenza della x il corri¬ 
spondente coefficiente è 0. 

Alcune tecniche di programmazione, per calcolare il valore del poiino- 




88 


ANCORA MATEMATICA 


mio, fanno ricorso all'algoritmo di Horncr-Ruffmi; luti avi a, in quesia 
sede, per una piti immediata comprensione, si è preferito procedere nel 
modo consueto e sommare i prodotti di ogni coefficiente per la corri¬ 
spondente potenza di x. 

Per il calcolo della derivata in un punto si ricorre allo stesso metodo do¬ 
po aver trovato i coefficienti della funzione derivata. Come è noto 


D ojC = anxT' 


In modo analogo si ricavano i coefficienti delle derivale di ordine supe¬ 
riore. 

Ad esempio: 


Ax) = 3x*-5x + 7 
f(x) = 6x-5 

r(x) = 6 

La derivata della funzione in un punto x» rappresenta il coefficiente an¬ 
golare della tangente alla curva di equazione y = /(jr) nel punto di ascissa 
x t . Per trovare l’equazione della tangente in un punto JTo, si calcola /(x 0 ) 
e f(x •); l’equazione richiesta risulta 

y-fM = /'(x.)*<x-x„) 


ed in forma esplicita: 


y * /'(xo)r+/'(xo)x»+/(xo) 
dove m = /'(x») e q = f’ix<>)x Q +/(x 0 ). 

L’ultima sezione, nella quale vengono calcolati massimi e minimi è al¬ 
quanto più complessa. 

La ricerca viene effettuata aU’iniemo di un intervallo definito dall’uten¬ 
te, a partire dall’estremo inferiore e per valori discreti ottenuti incremen¬ 
tando successivamente la x di una quantità dbr, anch’cssa definita 
dall’utente. 

Il programma procede finché non si verifica una delle seguenti eventuali¬ 
tà: (1)/'M“0, cioè la derivata prima si annulla per un dato valore di 
x; (2) le derivale, calcolate in due punti successivi, sono discordi. 

Nel primo caso, detto x„ il punto in cui si annulla la derivata, si calcola¬ 
no le derivate successive fino a trovare quella che in x 0 non si annulla. 
Se quest'ultima i di ordine pari, in corrispondenza di x 0 c’i un massimo 
relativo se la derivata è negativa e un minimo relativo se i positiva; inve¬ 
ce, se è di ordine dispari, in Xo la funzione non ha né massimo né mini¬ 
mo. 
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Nd secondo caso in cui cambi il segno della derivala calcolata in due 
punti successivi, è evidente che tra questi deve esistere un punto x t in cui 
f(X,)=0. Per trovare Xt si utilizza la stessa subroutine per la ricerca 
adTintervallo principale, dopo aver posto gli estremi uguali a x-dr e x 
e l’incranatto ugnale a un decimo del precedente. Nuovamente, o si tro¬ 
vi il punto Xo tale che /' (*o) - 0 o si trova un intervallo più piccolo 
(1/10 del precedente) in cui si uova x$. n procedimento viene ripetuto 
cinque volte Tino a trovare la soluzione con una sufficiente approssima¬ 
zione. Se Pina emetto iniziale è 1, x% è calcolato con l'approssimazione 
a meno di un centomillesimo. É possibile aumentare la precisione au- 
matando il numero di iterazioni. 


toc reh funzioni razionali 

ilo ré ri 

120 R£n di: Sergio Bore ani 
130 REM versione: TI BASIC 
HO CAU- CLEAR 
130 Din A<20) ,B(20) ,F (20) 

1*0 CALL CHARl130,"7940404078") 



720 CALL CHAR(136,*7640704070*> 

230 CALL CHARI137,"7000060800*» 

2*0 CALL CHAR(130, "7940734070") 

30 CALL CHARU39, "7040700076") 

260 CALL CHAR< 135, "FFFFFFFFFFFFFFFF " > 

270 CALL COLOR (li, 7, 1) 

280 REH 

240 REM TITOLO 

JOO REM 

310 PRINT TAB < 11 > I "FUNZIONI" : i 

320 PR1NT TABI7): "RAZIONALI INTERE" : s ::: i :: : 

330 CALL HCHAR{IO,6, 135,22) 


Z1 ONE IN UN PUNTO":: 

VATE IN UN PUNTO":: 
TANGENTE IN UN PUNTO':: 
Z10NE":: 


LHLL HLnHnilP.O 

370 FOR T*1 TO loto 
380 texT t 
390 GOSUB 1710 
400 CALL CLEAR 
410 PRINT "F-REHIl*:: 

420 PRINT “l. PER IL VALORE DELLA FUN-":" 

430 PRINT "2. PER IL VALORE DELLE DERI-": 

*40 PRINT "3. PER L’EQUAZ. DELLA RETTA":" 

*30 PRINT -4. PER LO STUDIO DELLA FUN-":" 

4*0 PRINT "3. PER FINIRE"::: 

470 CALL KEV(O.K.S) 

480 IF S-0 TPEN 470 
*90 IF K<49 THEN 470 
300 IF K>33 THEN 470 

310 ON K-4B BUIO 520,730,900,1230,1620 

r ai i ri roc 

330 PRINT "CALCOLO DELLA FUNZIONE:":: 

3*0 PRINT "F(*)■": 

330 FOR I *N TO 1 STEP -1 

360 IF A ( I>-O THEN 600 

370 FRINT STRSIAd) ) J *X*S 

380 IF 1-1 TVCN 600 

390 GOSUB 2690 

600 IF A(I-l)<«0 T1CN 630 

610 IF (1-1) *(A(0)«0)THEN 640 

620 PRINT 

630 WEXT I 

6*0 IF A<0>-0 TPCN 660 
650 PRINT STR*(A<01 1 : : : 

660 PRINT 

670 IW>UT *X - *:X 

680 PRINT 

690 GOSUB 1920 

700 PRINT "F ( " 15TR8 (X) 1 "I “"IF(O) 

710 PRINT ::: 

720 IwnjT "VUOI IL CALCOLO PER UN ALTRO PUNTO"’ (S/N) ":R* 
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730 IF SEG*<R»,1,1I--B" THEN 660 
740 GOTO 400 
730 CALL CLEAR 

760 FRI NT -VALORE DELLA DERIVATA NEL" 

770 PRINT “PUNTO l'u 
780 INPUT "X » M 
790 GOSUB 2770 
800 K-O 
B10 

20 IF K>N TKEN 920 
30 FfK)»0 
640 GOSUB 2000 
050 PRINT :il 
060 PRINT 'DERIVATA*IK 

070 PRINT “ F*;STR»CK) | ' C“|STRA(*M "Ì--JFCK) 

080 PRINT tu 

090 IF K-N THEN 930 

900 INPUT “V4J0I UNA DERIVATA DI ORDINE SUPERIORE? (S/N) 
910 IF SE04(R6,1,1)•“0“ TKEN 610 
920 PRINT 

930 INPUT -VUOI DERIVARE IN UN ALTRO PUNTO? (S/N) "iF 
940 IF 9EG*(R«,1,1>-"S“ TVCN 750 ELSE 400 
950 RETI 

960 RETI TANGENTE 

970 RCM 

900 CALL CLEAR 

990 PRINT * EQUAZIONE DELLA RETTA" 

1000 PRINT * TANGENTE IN CORRISPONDENZA" 

1010 PRINT - DI U* PUNTO- 

1020 PRINT : i : 

1030 Iftf>UT "X - -t X 
1040 GOSUB 2770 
1050 (C*l 
1060 F(K>«0 
1070 GOSUB 1920 
1080 GOSUB 2000 
1090 PRINT il 

1100 rl-INTUOO*F<l>)/lOO 
Ilio Y1-INT(I00«F(0)>/100 
1120 Q—MM+YK 
1130 PRINT "Y-"l 

IF M-0 T«N 1160 
PRINT STR*<H)l"X"J 
1160 IF (M*0)*(0*0)THEN 1190 
1170 IF Q-0 THEN 1220 
11B0 IF 0>0 THEN 1210 
1190 PRINT Q 
1200 GOTO 1220 
1210 PRINT jSTRt (0) 

PRINT n: 

INPUT -VUOI IL CALCOLO IN UN ALTRO PUNTO? (S/N> -i 
1240 IF SEG4CR4,1,1)*"0- ThCN 1020 ELSE 400 
CALL CLEAR 

PRINT -IN QUESTA SEZIO)« 91 STUDIA" 

1270 PRINT "LA FUNZIONE IN UN INTERVALLO“it 
12B0 PRINT "SRIVERE GLI ESTREMI E" 

1290 PRINT "L* INCRETCNTO DEULA X"n: 

1300 INPUT -XI,12 -tIN12,Firc 
1310 PRINT 

1320 INPUT * INCREMENTO - ": INCR 
1330 X-INIZ 
1340 GOSUB 1920 
1330 FXl-F(O) 

1360 X-FINE 
1370 GOSUB 1920 
1300 FX2-F(0> 

1390 CALL CLEAR 

1400 PRINT -PUNTO-,-FUNZIOI«:- 

1410 PRINT -- - -" 

1420 PRINT INIZ.FXlii 

1430 X1«INIZ 

1440 X2-FIKC 

1450 DX-IICR 

1460 GOSUB 2090 

1470 IF SD2-0 THEN 1520 

1400 IF 9D1>0 TTCN 1310 

1490 PRINT '-DECRESCENTE": : 

1300 GOTO 1320 

PRINT .-CRESCENTE":: 

PRINT FINE,FX2 

1330 PRINT "-" 

1340 PRINT i : t 

1350 PRINT •* PREMI UN TASTO" 

1360 CALL KEYCO.K.S) 

1570 IF S-0 THEN 1360 
1380 GOTO 400 
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2450 Xl=X+INCR 
2460 K2-FINE 
2470 DX = INCR 
2490 SOTO 2100 
249(i seri 

2500 REFI SD1OS02 

2510 REn 

2320 V»V*I 

2520 Xl-X-DX 

2540 X2=X 

2530 DX=DX/ 10 

2560 IF V>3 THEN 7500 

2570 GOTO 2100 

2590 1F SDÌ >0 THEN 2620 

2590 PRINT ."DECRESCENTE"!: 

2600 PRINT X “MINIMO REL. 

2610 GOTO 2640 

2620 PRINT ‘CRESCENTE":: 

2630 PRINT X,-MASSIMO REL.*:: 

2640 0=0 

263(' BOTO 2430 

2660 REM 

2670 REM ESPONENTI 
26e0 REM 

2690 FOR H= 1 TO LEN(STR* ( I> > 
2700 ESP=VAL (SE6* <STR» <1),H,1>1 
2710 PRINT CHR*(130+E5PH 
2720 NEXT H 
2730 RETURN 
2740 REM 

2750 REM BUI-A<1> 

2760 REM 

2770 FOR 1=0 TO N 
2790 B<I)*A(1> 

2790 NEXT I 
2900 RETURN 


Nelle righe iniziali sono de fini li i caraneri per rappresentare gli esponen¬ 
ti; per ragioni mnemoniche l'ultima cifra del numero del carattere i 
uguale all'esponente specifico, pertanto 130 è il numero del carattere che 
rappresenta l'esponente 0, 131 corrisponde all'esponente 1, e cosi via. 

I coefficienti del polinomio sono accettati nella subroutine 1710 e memo¬ 
rizzati nel vettore All); N è invece il grado del polinomio. 

Le istruzioni 540-650 fanno apparire la funzione sullo schermo. Gli 
esponenti vengono scrìtti dalla routine 2690-2730. Con qualche condizio¬ 
ne in più si evita di scrìvere il coefficiente se questo è uguale a zero o di 
scrivere l’esponente uno. 11 calcolo del valore della funzione in un punto 
X t svolto dalla routine 1920. Per il calcolo delle derivate si trasferisco¬ 
no i coefficienti in BUI per non perderli e si passa alla GOSUB 2000. É 
inteso che il valore della funzione é assunto da RO), quello della deriva¬ 
ta prima da RI), quello della derivata seconda da H2), e cosi via. 

Per scrìvere l’equazione esplicita della retta tangente al grafico della fun¬ 
zione in un punto X si calcolano il valore della funzione e della sua deri¬ 
vata prima in quel punto e successivamente il coefficiente angolare M (li¬ 
nea 1100) e rior dinata all’orìgine Q (linea 1120). Alle linee 1130-1210 vie¬ 
ne scrìtta l’equazione esplicita della retta; anche qui qualche accorgimen¬ 
to i volto a dare una scrittura corretta, infatti non verrà scrìtto il termi¬ 
ne corrispondente se M o O dovessero risultare uguali a zero, ma appari¬ 
rà la scrittura Y = 0 se entrambi lo fossero. 

La pane più impegnativa t senza dubbio quella concernente la ricerca 
dei massimi e dei minimi relativi. L'algoritmo seguito i esattamente 
quello illustrato nella pane introduttiva qualora venga trovato un punto 
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Fig. 10 
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dove la derivala pnma è uguale a zero. SDÌ ed SD2 sono le variabili che 
contengono il segno della derivata calcolata rispettivamente nei punti X e 
X+ DX. Se per un dato incremento della X non si verifica la condizione 
SDÌ = 0 oppure 5D2 = 0, allora si guarda se SDÌ sia diverso da SD2 poi¬ 
ché l’inversione di segno della derivata indica che siamo in presenza al¬ 
meno di un massimo o di un minimo relativo. Si procede nel seguente 
modo: se nell'intervallo principale ove si studia la funzione viene trovato 
un intervallino ai cui estremi le derivate assumono segni opposti, si 
esplora rintervallino con un incremento della variabile indipendente die¬ 
ci volte minore del precedente fino a trovare o un punto ove la derivala 
prima si annulla oppure un altro intervallino ai cui estremi le derivate 
hanno segno opposto. Il ciclo viene ripetuto fino ad un massimo di cin¬ 
que volte (variabile V), ad ogni iterazione il risultato viene trovato con 
un’approssimazione che aumenta di un ordine di grandezza e nulla vieta 
di proseguire in questo modo fino ad ottenere l’approssimazione deside¬ 
rata. 

Data la complessità di questa pane viene riportato il diagramma a bloc¬ 
chi relativo (figura IO). 

Vediamo ora un esempio di applicazione pratica. É stato scelto un poli¬ 
nomio di terzo grado (N = 3) e in input sono stati scritti i seguenti coeffi¬ 
cienti: 4, -72, 324, 0. Premendo il tasto 1 al menù appare la funzione 
scritta nel modo consueto; per a=3 viene calcolalo il valore H*J =432. 
Passando, con il tasto 4 del menù, allo studio della funzione, viene chie¬ 
sto di specificare gli stremi dell’intervallo e l'incremento della X con il 
quale esso deve essere splorato. Sono stati scelti gli estremi 0 e 10, l’in- 
cremento é stato posto uguale a 0.5. Come si vede dalla figura (esempio 
6) vengono dati i valori della funzione agli stremi dell’intervallo, un 
punto di massimo relativo per x = 3 e un punto di minimo relativo per 
x=9, inoltre vengono specificati gli intervalli in cui la funzione i cre¬ 
scente o decrescente. 

Quando sussistono dei dubbi è preferibile interrogare nuovamente il 
computer esplorando l'intervallo con un altro valore dell’incremento, 
tracciando il grafico per punti e calcolando il valore della derivala in 
corrispondenza di alcuni di essi. 
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CALCOLO DELLA FUNZIONE: 
F(X»MX 1 -72X J «-324X 
X = 3 

F <3> -= 432 

VUOI IL CALCOLO IN UN ALTRO 
PUNTO? (S/N» ■ 



Soluzione delle equazioni algebriche Inlrre 

U equazioni algebriche inlcre sono quelle equazioni che possono essere 
espresse nella forma: 


ajc"+a m -,x m ' l + ...+aìX i +a,x + at, = 0 


Convenzionalmente il grado massimo è stato posto uguale a 20. 

D programma fornisce solo, se esistono, le soluzioni reali dell’equazione. 
I metodi adottati differiscono al variare del grado dell'equazione. Se il 
grado é I, l’equazione è del tipo ax+b = 0 e la soluzione è jr = -b/a. 
Se l'equazione è di secondo grado i del tipo ax*+hx + c = 0 ed il suo 
determinante è D = b 1 -Aac. Se risulta D<0 l’equazione non ammette 
soluzioni reali; se D=0, ammette due soluzioni coincidenti; infine, se 
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D> 0 esistono due soluzioni distinte date dalle formule: 

~b~\Jb 2 ~ 4oc -b + sjb*- bac 

*' 2n ’ Xl 2 a 

Se il grado dell’equazione ì maggiore o uguale a 3 si segue il metodo di 
Newton. Questo consiste in una serie di successive approssimazioni. Nel¬ 
la Figura 11 viene mostrato il grafico di una generica funzione /(x) ed 
una retta tangente alla curva nel punto Po di ascissa Xo. Come è noto la 
doivata della funzione nel punto Po rappresenta il coefficiente angolare 
della tangente. Detto x ( il punto di intersezione della tangente con l’asse 
delle x, è/'(x#) = /(x 0 )/(xo-Xi) e da qui si ricava il valore di x,: 


x, = Xo-/(x«)//'tXo) 


Il metodo consiste nelTassumere x, come approssimazione della radice 
reale r e da questo calcolare il valore x } in modo del tutto analogo: 

*1 = X,-/(X|)//'(X,) 

Poi il valore di x } , e cosi via, Tino a trovare la soluzione con l’approssi¬ 
mazione desiderala. Generalmente bastano poche iterazioni per trovare 
una soluzione. 
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Ndl'eveniualiià che sia /’(x*) = 0 la langenie non ha intersezioni con 
l’asse delle jr e il programma è fornito di una fun^one random per fissa¬ 
re un nuovo punto di partenza per le iterazioni. 

In ogni caso, trovata una radice reale r dell’equazione, detto P{x) il po¬ 
linomio al primo membro dell’eguaglianza, deve essere P(x) = 
C(r)x(x-r) e si può procedere al calcolo dei coefficienti del nuovo po¬ 
linomio Q(x) con la regola di Ruffini. Ad esempio, data l’equazione 
* > -4jr 1 +jr+6 = 0 e trovata con il metodo di Newton la soluzione 
r=»2, applicando la regola di Ruffini si trovano i coefficienti del polino¬ 
mio quoziente Q(x). 



Le soluzioni dell’equazione di secondo grado jr* — 2 jc— 3 = 0 sono anche 
soluzione dell’equazione di terzo grado data inizialmente. Ogni volta che 
viene individuata una radice dell’equazione è possibile scrivere un’equa- 
none di grado immediatamente inferiore. 11 programma utilizza il meto¬ 
do di Newton per trovare soluzioni e per abbassare conseguentemente il 
grado dell’equazione finché non si arriva al secondo, dopo di che si usa¬ 
no le formule per la soluzione di equazioni di secondo grado. 

Un breve commento merita ancora il modo in cui viene trovalo il valore 
del polinomio nella routine 2160. 

L’algoritmo utilizzato t quello di Horner-Ruffini che, per quanto sia 
meno familiare, consente al computer un calcolo piò veloce con un mi- 
oor numero di istruzioni. 

Il polinomio: 


Pfx) = a„x" + ... +fliX J +fliJr + <7o 

può essere scritto nella forma: 

((((a.x+ a..,)x+.. .)x +<rjVr+«7i)jr + a 0 

Per calcolare il valore del polinomio per x=x», si definiscono i seguenti 
numeri: 


= a. 

*, = ktxo +a», i 


1 =*.-jJro + «i 
*„ = *r^,Xo + a« 
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risulta: 


PC*.) = *. 

In modo dd lutto analogo viene calcolato il valore della derivata nel 
punto jr«. 

Per gli esponenti, i segni di radice e di frazione sono stati definiti simbo¬ 
li spedali in modo da ottenere una notazione uguale a quella convenzio¬ 
nalmente adottata in matematica. Come è noto, il computer, senza istru¬ 
zioni particolari, scrìve, le potenze nella forma X N, le radia quadrate 
nel modo SQR(N) e, per il segno di frazione, usa il simbolo /, 
Quando il programma si prefigge anche uno scopo didattico, non credo 
sia ingiustificato impiegare una certa quantità di memoria per ottenere 
una maggior chiarezza espositiva. 


100 
1 IO 
120 
130 

I .0 
150 
140 
170 
180 
190 
200 
210 
220 
ZZO 
240 
2W 
260 
270 
290 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
475 
400 
490 
500 
510 
520 
530 
540 
550 
560 
570 
590 
590 
600 
610 
620 
630 
640 
650 


REM 

REM 

REM 

REM 

REM 


SOLUZIONI DELLE 
EQUAZIONI ALGEBRICHE 


di Scrqio Borsari! 
versione: TI BASIC 
CALL CLEAR 

PRINT - EQUAZIONI ALGEBRICHE" 
DIM A(20).B(20).RC20) 

REM 

REM ESROfCNT! 

REM 

CALL CHAR(129."7040494070") 

CALL CHAR(129,"2060202020 M ) 

CALL CHAR < 130* *'7800706070" ) 

CALL CHAR(131,"7000700070") 


CALL CHAR<132,"6060507010" 
CALL CHAR<133,°7060700070" 


CAL L CHAR <134."7060706070”> 

CALL CHAR<135,"7008060800") 

CALL CHAR<136,"7060706070-) 

CALL CHARU37.-7BSB78O870-) 

CALL CHAR(141,“5060484049“) 

REM 

REM SIMBOLO DI RADICE 
PEM 

CALL CHAR <13e,"0101026214 140000") 

CALL CHAR( 139OOOOOOOOOOOOOC'FF") 

REM 

REM SEGNO DI FRAZIONE 
REM 

CALL CHARC140,"OOOOOOOOFF-) 

CALL CLEAR 
AP=0 

PRINT - IL PROGRAMMA PERMETTE LA M 
PRINT "SOLUZIONE DELLE E0JAZI0NI“ 

FRINT “AVENTI LA FORMA:: 

PRINT - A K",CHR*<141>:-« ... ♦A X " 5CHR4(130);"♦A X*A *0“ 
PRINT TAB(3> jCHRt ( 14 1 ) :TABU4) ! CHR* (130) S TAB< 19) 4 CHRt (129) f 
PRINT TAB(23)iCHRf(120): : : : : 

INPUT "GRADO DELL'EQUAZIONE » ":G 
PRINT 

IF 6,0 THEN 540 
PRINT 

PRINT “ERRORE: 

GOTO 490 

IF G<-20 THEN 500 

PRINT -IL GRADO E* TROPPO ALTO" 

PRINT "BISOGNA MODIFICARE L'ISTRU-"?"ZIONE DIM": : : 

GOTO 400 

PRINT "SCRIVI I COEFFICIENTI DELLE" 

PRINT "POTENZE DECRESCENTI DELLA X":: 

PRINT "IN MANCANZA DI UN TERMINE" 

PRINT "PONI A»0": 

F-RINT "COEFFICIENTI:-:! 

N=G 

FOR 1*0 TO N 

PRINT "A"ISTR*(N-I> ! " - "1 


% 
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1320 RlCTR)=0 

1510 XX=0 

1340 GOSUB 2560 

1550 IF N<>2 THEN 1300 

1560 GOSUB 2460 

1370 1F D<0 THEN 2010 

1580 CTR=CTR*1 

1590 P<CTR>-XX1 

1600 CTR=CTR*l 

1610 R(CTR> =XX2 

1620 GOTO 2010 

1630 XO-O 

1640 GOSUB 2310 

1650 1F P=0 THEN 1720 

1660 IF Pt*0 THEN 1760 

1670 IF T >30 THEN 1930 

1690 PRJNT :s: 

1690 FR1NT -SPIACENTE, NON RIESCO A" : * TROVAFtE LE SOLUZIONI* 

1700 PRINT -QUASI CERTAMENTE L'EQUAZIONE “NON ANNETTE SOLUZIONI REALI. 

1710 GOTO 2640 

1720 R(CTR)*XO 

1730 XX=XO 

1740 GOSUB 2560 

1750 IF N=2 THEN 1560 ELSE 1500 

1760 RANOONIZE 

1770 1NCR«1NT(RND»10)*1 

1790 IF INCR/2°1NT1INCR/21THEN 1010 

1790 XO=XO-INCR 

1900 GOTO 1820 

isio xo=xo*incr 
1820 VOLTE-EVOLTE* I 
1870 IF V0LTE*3 THEN 1B50 
1040 GOTO 1640 

1630 FRINÌ “SONO IN DIFFICOLTA'. PER FA-" 

1860 PRINT "VORE INDICA UN VALORE DI X."-.-. 

1870 PRINT "SE NON VUOI PROSEGUIRE* 

1980 PRINT "SCRIVI 9999*!:: 

1990 INPUT "X * ':X0 
1900 PFINT ::: 

1910 VOLTERÒ 

1920 IF XO-9999 THEN 1690 ELSE 1510 

1930 XO=X 

1940 GOSUB 2210 

1950 IF ABSIPlME-10 THEN 1760 

1960 AP=l 

1970 R fCTR)=X0 

I960 XX»X0 

1990 GOSUB 2560 

2000 GOTO 1350 

2010 IF APM THEN 2040 

2020 PRINT -SOLUZIONI:"ii 

2070 GOTO 2030 

2040 PRINT -SOLUZIONI APPROSSINATE: : 

2050 FOR 1*1 TO CTR 

2060 PRINT -X"SSTR» 11)5“ -"{Riti 

2070 NEXT I 

2080 PRINT : : : : 

2090 GOTO 2640 
2100 REN 

2110 REN B(I)=A<I) 

2120 REN 

2130 FOR 1=0 TO N 
2140 B(I>-A(I » 

2150 NEXT | 

2160 RETURN 
2170 REN 

2180 REN VALORE FOLINONIO 
2190 REN E DERIVATA ’H XO 
2200 REM 
2210 P=B <NÌ 
2220 Pl*0 

2230 FOR I=N-I TO 0 STEP -I 

2240 P1=P1»X0*P 

2250 P=P*XO+BIII 

2260 NEXT 1 

2270 RETURN 

22BO REN 

2290 REM METODO DI NEWTON 
2300 REN 
2310 T-0 
2320 T=T*1 

2330 IF T >50 THEN 2410 
2340 GOSUB 2210 
2330 IF P*0 THEN 2410 
2360 IF P1=0 THEN 2410 
2370 X=X0-P/P1 
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r:e> 
?"?<•» 
2400 
7* !'■* 
2*20 
:i'. 

24?'.' 

:4fi" 

, 


:s:- 

Sio 

!52'- 

25lo 


2V* 

'ì.’.ì - 

7t i •:* 
Lg2‘* 
-67 v 
7c4f 
W.' 
rii-: 1 

5*?o 
:&8“ 
249 v* 
770» 

r?i'- 


Fin PUOI STAMPARE X9,P 

Xm-I 

f 3OT0 2720 

RETURN 

rFP! 

ri*- SOLUZIONE EU. 

r-rn di secondo grado 

RFfl 

l 'V' 1 > 7-4 • B < 2) ■ Ir <o> 

: r r ='» THEN 74*90 
G-3TCI 2510 

xy 1= i -P <I>-SDPCD)7/<2-P(?>> 
XX2»< P'1)♦BOP CD))/(2»D(?) ) 
FFTWN 
FFM 

FF1 COCFF. POI INOMI0 
K'M DUO 71 ENTE 

PPM 

rrjF ! -N— 1 TO O STEP -1 

p f r )-!«♦ i ) ►bum )«xx 

•<CXT I 

M~N- I 

ì '!R I -*«-> TO N 
PMMIM !♦ 1 > 

NSXT ! 
r<f TU N 

IPINT "VUOI CONTINUARE"* 'S/N>- 

COLL y EY'A,F .S) 

ir 5-0 THEN *659 

ir I -HT THEN <110 

IP I'115 THEN 4 io 

IT I=7H THEN 2720 

l r 1-1 IO THEN 2720 

DOTO 2650 

CALI T1.EAP 

cni> 


11 listato contiene alcune REM che rendono piò agevole la sua lettura e 
che rendono superflue ulteriori precisazioni. Nella parte iniziale sono de¬ 
finiti i caratteri speciali e si stampa una breve presentazione. Il grado 
ddTequazionc viene posto in G e successivamente trasferito in N, in que- 
flo modo N potrà variare senza perdere il valore iniziale G. I coefficienti 
vengono inseriti nel valore All). Le righe 720-870 scrivono nel modo 
convenzionale l'equazione prima di cercare le soluzioni; l'utente può 
controllare di aver inserito i dati in modo corretto ed ha la conferma che 
le soluzioni sì riferiscono proprio alla sua equazione. Alle linee 680*900 
si distingue se l'equazione è di primo, secondo grado o di grado maggio¬ 
re poiché si seguono tre algoritmi diversi. Il primo di questi occupa le 
iole righe 910-930, il secondo le righe 960-1470, il terzo le righe 1460- 
2090. 

li variabile CTR (1480) è un contatore che indica il numero di soluzioni 
trovate; queste vengono memorizzate nel vettore RI CTR). Poiché, come 
è staio detto, ogni volta che viene trovala una soluzione si può indivi¬ 
duare una equazione di grado immediatamente inferiore, è necessario 
utilizzare un altro vatorc B(l) per porvi i coefficienti. 

Datante V e\aWftztoive si opererh sempre su\ valore B\V>. 

Alla linea 1630, XO rappresenta il punto dal quale inizia la ricerca di una 
radice dell'equazione con il metodo di Newton; convenzionalmente è sta- 

10 posto X0 = 0. Con la routine 2150 si calcola il valore P del polinomio 

11 primo membro dell'equazione e della sua derivata PI nel punto XO. 
Da questi si ricava (linea 2370) X=X0-P/P1 c, dopo aver posto X0=X, 
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si ripete il ciclo. Questo termina in uno dei seguenti casi: (1) si sono ef¬ 
fettuate piti di SO iterazioni, infatti generalmente ne bastano una decina; 
(2) il polinomio si azzera in X0. nel qual caso è P = 0; (3) la derivata si 
annulla in XO. Queste condizioni vengano valutale alle linee 1660-1670. 
Se il programma non riesce a trovare una soluzione viene scelto casual¬ 
mente un altro punto dal quale iniziare nuovamente la ricerca e, se l'esi¬ 
to è ancora negativo, si chiede all'utente di esprimere un valore dal qua¬ 
le i niziar e. Queto numero dovrà essere prossimo ad una presunta radice 
dell’equazione. 

Il programma occupa S Kbyte di memoria. 

Come test si può porre uguale a 3 il grado dell’equazione e scrivere i se¬ 
guenti coefficienti: 1, 6, 3, -10; dopo un paio di secondi appariranno le 
soluzioni: 1, -5, -2. 

La scrìtta VUOI CONTINUARE? (S/N) ìndica che l’elaborazione è finita. 
Se per un’equazione di terzo grado dovesse apparire una sola soluzione è 
evidente che le altre radici non sono reali. 

Da un punto di vista didattico può essere interessante vedere le successi¬ 
ve approssimazioni di una radice calcolate con il metodo di Newton. A 
questo proposito la REM di linea 2380 ricorda che in quella stessa posi¬ 
zione si può inserire una istruzione per stampare X0 e P. Si noterà allora 
che i due valori fluttueranno e, quando sarà P = 0, X0 è una radice reale 
dell’equazione. 


Determinanti e soluzione di statemi lineari 

Non a caso i due argomenti sono stati associati, infatti una soluzione di 
sistemi lineari viene eseguita ricorrendo alla regola di Cramer che preve¬ 
de l'uso dei determinanti. 

Per evitare inutili ripetizioni, i buona norma utilizzare una siessa routi¬ 
ne per svolgere funzioni diverse. 

Un determinante di secondo ordine si indica con il simbolo: 

Oli Oh 

Oli On 


ed è uguale al numero Ju xoa-on x j tJ . 

Gli indici delia lettera a si riferiscono il primo alla riga, il secondo alla 
colonna. 

Dato un determinante di terzo ordine, si dice complemento algebrico di 
un suo elemento il determinante di secondo ordine che si ottiene dal pri¬ 
mo eliminando la riga e la colonna relative all’elemento stesso, precedu¬ 
to dai segno più o meno, a seconda che sia pari o disparì la somma degli 
indici. 
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D determinante è uguale alla somma degli elementi di una riga per i ri¬ 
spettivi complementi algebrid. 

La medesima definizione può essere estesa a determinanti di ordine su¬ 
periore. 

Il programma permette di risolvere determinanti di qualsivoglia ordine 
«, con ns 10; nulla vieta, tuttavia, di dimensionarlo diversamente, ag¬ 
giungendo l'istruzione DIM (per ns 10 l'istruzione non è necessaria) e 
modificando le linee di protezione dopo l'input del numero N. 

La tecnica di programmazione è originale. 

Sa A/ l’ordine del determinante, si definisce K=N- 2. e, utilizzando la 
stessa routine del programma sulle disposizioni (vedi capitolo 3), si crea¬ 
no le disposizioni semplici con gli N indici di colonna, presi a K a K. Gli 
indici di colonna, oggetti di ogni disposizione, vengono associati agli in¬ 
diò di riga 1, 2, 3 ... K, vengono quindi moltiplicati uà loro gli elementi 
dd determinante con quegli indici di riga e colonna; tale prodotto viene 
ancora moltiplicato per il determinante dd secondo ordine che si ottiene 
eoo gli elementi delle ultime due righe, N -1 ed Al, ed aventi numeri di 
colonna diversi da quelli che compaiono come oggetti della disposizione 
sonplice. U prodotto degli elementi associati agli oggetti di ogni disposi¬ 
none semplice e del determinante del secondo ordine, costituisce un ad¬ 
dendo che concon-e al calcolo del determinante; tali addendi vengono 
presi alternativamente con il segno piò e meno; il toro numero è uguale 
il numero delle disposizioni semplici che si ottengono con N oggetti pre¬ 
ti a K a K. 

Un esempio pratico chiarirà meglio l'algoritmo seguito. Sia dato il se¬ 
guente determinante dd quarto ordine: 

2 3-1 4 

-12 3 3 

4-2 1 3 

I 12-4 


£ N =4 e K=N ~2 = 2; il numero delle disposizioni semplici i D t .i = 
4x3 = 12 e, prendendo come oggetti gli indici di colonna, esse sono: 1,2; 
1,3; 2.1; 2.3; 2,4; ecc. 

Di ogni coppia, il primo indice di colonna viene associalo al numero di 
riga I ed il secondo al numero di riga 2. Data la prima disposizione (1,2) 
vengono individuati gli dementi a„ = 2 ea B =2e successivamente il de¬ 
terminante di secondo ordine formato dalle ultime due righe e dalle co¬ 


lonne con indice diverso da I e 2, cioè 3 e 4; esso i 


1 

2 


e viene 


calcolato nd modo consueto dando il risultato -10. 

D primo addendo sarà pertanto: 2x2x(-10) = -40. 

La seconda disposizione à (1,3), corrispondente agli elementi del deter- 
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minante a,[ = 2 e c u =3; il determinante del secondo ordine è formato 
dalle ultime due righe e dalle colonne con indice diverso da I e 3, cioè 2 
e 4. Esso è 



Il secondo addendo, ricordando ebe essi vengono presi alternativamente 
col segno più e meno, è: -2x3x5 = -30. 

Ripetendo il procedimento per le 12 disposizioni, si ottengono 12 pro¬ 
dotti la somma dei quali dà il valore del determinante. Il tempo di ela¬ 
borazione è di circa un secondo per ogni ciclo; di conseguenza un deter¬ 
minante di quarto ordine richiede per il calcolo circa dodici secondi. 

I sistemi lineari sono risolti ricorrendo alla regola di Cramer. 1 coeffi¬ 
cienti delle n incognite formano un determinante di ordine n che viene 
detto determinante del sistema, il quale si suppone sia diverso da zero 
Sostituendo i termini noti, rispettivamente, ai coefficienti di ogni inco¬ 
gnita, si ottengono i determinanti £>■, Di,... D.. 

La soluzione del sistema è: 



11 programma, utilizzando la routine per la soluzione dei determinanti, 
fornisce la soluzione del sistema in forma frazionaria, dove i termini del¬ 
le frazioni sono proprio i valori dei determinanti sopra definiti; even¬ 
tualmente le stesse frazioni sono ridotte ai minimi termini. 


DETERMINANTI 
E SOLUZIONI 
DI SISTEMI LINEARI 


Dii SERGIO B0RSAN1 
VERSIONE: TI BASIC 


IOO REM 
110 REM 
120 REM 
130 REM 
HO REM 
ISO REM 
160 REM 
170 CALL CLEAR 
ISO CALL CHARU2B,"F"> 

190 CALL COLOR113.9.9) 

200 PRINT TAB(?) » ''DETERMINANTI**: : 

210 PRINT TAB(9):"E SOLUZIONI":: 

220 PRINT TAB<6>;-DI SISTEMI LINEARI”:::::::: 
230 CALL HCHARCIO,6,128,22) 

240 CALL VCHAR<11,6.128.7) 

230 CALL VCHARI11,27,128,7) 

260 CALL HCHARl10,6,l2B,Ì2) 

270 FDR T-l TO 300 
280 NEXT T 

290 CALL CHAR <136,"OOOOOOOOFF”) 

300 CALL CHARU37,"301010101”) 

310 CALL CHAR <138, "7808784078“ ) 

320 CALL CHAR1139,"5B6B48404B”) 

330 CALL CHARI140,”0408080810101010") 

340 CALL CHAR <141,”3030303030303030") 

350 CALL CHARI142,"1010101010202040”) 

360 CALL CHAR(143,"2020101010101030") 

370 CALL CHARII44,"1010101008080804”) 

380 CALL CLEAR 
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DI UN determinante:". • 
LINEARE"*: 


390 PRINT "PREMI:■*t 

400 PfUNT M. PER CALCOLARE IL VALORE"." 

410 PRINT "2. PER RISOLVERE UN SISTEMA": 1 
420 PAI NT "3. PER FINIRE.":;: 

430 CALL KEY(0,KK.SS> 

440 ]F SS-0 THEN 430 
430 IF KK-49 TlCN 490 
460 IF KK-50 THEN 1440 
470 IF KK-31 TICN 3100 
460 GOTO 430 
490 CALL CLEAR 
500 FLA6-0 

310 PRINT "DETERMINANTI":: 

320 CALL HCHAR(24,3, 120,28) 

330 PRINT : : : 

540 PRINT "SCRIVI L'ORDIKC DEL DET ERMI-MANTE, <N<»IO> . : 

330 INPUT “N - "*N 
560 PRINT 

370 IF N>-1 THEN 600 

380 PRINT "ERRORE ' N NON PUÒ' ESSERE":"MINORE DI 1, RIPETI":; 

390 GOTO 350 

600 IF N<-10 THEN 630 

610 PRINT "SPIACENTE, N NON PUÒ ' ESSERE” * “MAGGIORE DI 10, RIPETI" 
620 GOTO 550 

630 IF FLAG-1 THEN 1700 

640 PRINT “9CRIVI, RIGA PER RIGA, GLI"i “ELEftNTI DEL DETERMINANTE 

650 FOR 1*1 TO N 

660 PRINT "RIGA"11J"s " 

670 FOR J-l TO N 

680 PRINT " COLONNA"| J| "■ "I 

690 INPUT A < I, J ) 

700 NEXT J 
710 PRINT 
720 NEXT I 

730 IF N«2 TVCN 1390 
740 IF N«1 ThCN 1350 
750 GOSUB 770 
760 GOTO 1270 
770 DTM«0 
780 K*N-2 
790 Nl-N-l 
000 D»N 

010 FOR I-l TO K-l 
820 D*D*(N-I) 

030 rcXT I 
840 PRINT e. 

850 FOR 1*3 TO N 
B60 CTR(l)-I 
870 P<I)»N*1-I 
880 PCXT I 
890 S-l 

900 FOR CNT-I TO D 
910 F-l 

920 FOR R>1 TOK 
930 OP (NM-R> 

940 F-F*A<R,C) 

930 NEXT R 
960 CD-I 

970 FOR 1-1 TO N 

980 FOR J-3 TO N 

990 IF P<J)-I THEN 1030 

1000 NEXT J 

1010 B(CD)*1 

1020 CD-2 

1030 NEXT I 

1040 D2-A(Nl.B(t> )«A(N,B (2) )-A(N,B(l > ) *A (NI,B <2> ) 

1030 F-F*D2»9 
1060 DTM-DTM4F 
1070 S--S 

10S0 IF CNT-D THEN 1260 
Iù9ò X-3 

1100 CTR(X >-CTR < X)♦1 
1110 IF CTRIXK-X TFCN 1160 
1120 CTR(X)-1 
1130 X-X*l 

1140 IF X>N TPEN 1260 

1130 GOTO 1100 

1160 FOR W-X TO 3 STEP -1 

1170 P(W)-P < H >♦1 

UBO IF N-N THEN 1240 

1190 IF P<W) < —N TI«N 1210 

1200 P<W)-1 

1210 FOR I-MM TO N 

1220 IF P(W)-PmTFEN 1170 

1230 NEXT I 

1240 NEXT li 

1230 NEXT CNT 
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260 RETURN 
270 COLL CLEAR 

200 PRINT "IL VALORE DEL DETERMINANTE" : "E I : 

290 PRINT *0 --IDTM 
300 PRINT ::: 

310 PRINT "VUOI CONTINUARE? (S/NI " 

320 CALL KEYI0.KK,99) 

330 IF SS-O THEN 1320 

340 IF KK-S3 ThCN 490 ELSE 380 

350 PRINT :: 

360 PRINT “IL VALORE DEL DETERMINANTE"» "E*: 

370 PRINT -D -’jA(l,l)::i 
3S0 GOTO 1310 
390 PRINT s: 

400 DTH-AI1, n«A(2.2)-A(2. 1>>A (1.2) 

410 PRINT "IL VALORE DEL D€TERMlf«NTE":"E':"«: 

420 PRINT "D ■"; DTMi:: 

430 GOTO 1310 
440 CALL CLEAR 
450 FLAG-1 

460 PRINT "SOLUZIONE":"DI UN SISTEMA LIP*ARE"!: 

470 CALL HCHAR(24,3,12B,2S) 

480 PRINT ::: 

490 PRINT "UN SISTEMA LI «LARE PUÒ’ ES-"| "SERE RAPPRESENTATO «L MODO" 
500 PRINT "SEGUENTE:":: 

510 PRINT CMR»(140>I 
520 GQSUB 2460 

530 PRINT CHR*<141)J" 'ICIM < 1371 : CHR6U37JJ - *ICP«*(137); 

540 PRINT “ " >0*4 1137) ICWX» I 138) I “ n lCHR*(138Ì I 

550 PRINT TAB(19)p CERA < 137 ) | CHR» ( 139 > | " “;CHR*U39)I" "SCHR*(137> 

560 PRINT CHR* (141) | 

0 GOSUB 2480 

PRINT CHR* ( 142) t " "|CHR*( 138) JCHR« U37>| " -1CW** I 1371 » * "I 
PRINT CHR4 ( 138» |CHR»<130>|* "pCHR*(I38>ITABI19);CHR»I130)ICHR»<139> 
PRINT " MCKR» 1139) I " “ I OR»<1381 

PRINT CHR*(I43>!".• 

PRINT CHR*I141I 
PRINT CHR»(1411| 

60SUB 24BO 

PRINT CHR»I144»|* • ) CW» ( 139)1 CHR» ( 137> | • ■; W»» ( 137 » 5 * "I 
PRtNT CHR» 1139) pCWWI 138)1" "|CHR*( 136) I 

PRINT TABI 19) |Cm*(139> « CHR»II39) ; " "JCHR*! I39> I ■ "!CHR»(139) 

PRINT :: 

GOTO 550 

FRI NT "SCRIVI, NELL'ORDINE, I COEF-FICIENTI ED I TERMINI NOTI":: 
FOR I-I TD N 
FOR J«1 TO N 

PRINT "AI"ISTR»II) |9TR» IJ > | ■ > - 
INPUT ACI,J) 

NEXT J 

PRINT ■ HI”ISTR»( I > | ■ > - ’l 
INPUT HII> 

PRINT 
NEXT I 
PRINT 

IF N<>1 TIEN 1930 
IF All. 1)00 T>EN 1850 

PRINT 'CEDUAZIONE NON E* DETERMI-":"NATA* 

BOTO 2400 
NUTC-HI1) 

DENOTAI 1,1) 

GOSUB 2570 
DDX-HIl) 

DDS-All.1) 

G-l 

GOSUB 2750 
GOTO 2400 
IF (K)2 THEN 2150 
0 DD5-AI1,I)»A(2,2I-A<2, l)-»A(t,2> 

0 IF DD9<>0 T«N I960 
960 PRINT "IL SISTEMA NON E* DETERHINA-TO" 

970 GOTO 2400 

DDX-H<I>*A<2,2)-H<2)»A<1,2> 

NUME-DDX 
DENO-DDS 
GOSUB 2370 
GOSUB 2500 
PRINT 
B=1 

GOSUB 2750 

DDX-AIl,l)*H<2)-A«2,1>»H<1) 

NUME-DDX 
DENO-DDS 
GOSUB 2370 
GOSUB 2500 
PRINT 
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?9RA INt 2*9*1_ 1 
:MO FIN£=8+LI»L2 
3000 FOR J-1NIZ TO FINE 
3010 PRINT TABU) :OR» 1136) I 
3020 NEXT J 

3030 PRINT TAB I6«L 1-LEN (STR* (DOS) > > ISTRXDOS) • 

3090 IF D€N0»1 THEN 3080 
3030 IF CENO-DOS THEN 3080 

3060 PRINT TAB t*7*L t ♦L2-LENISTR* (DENO ) ) ) ? STR6 (DENO) 

3070 GOTO 3080 
30BO PRINT 
3090 RETURN 
3100 CALL CLEAR 
3110 END 

Il programma è diviso in due sezioni principali, come risulta dal menù 
(linee 390-420). Nella prima pane, alle linee 540-720 si accettano i dati 
in input; N i l’ordine del determinante mentre i suoi elementi sono con¬ 
tenuti nella matrice A(I,J). Alle righe 730-750 si indirizza l’elaborazione 
all’algoritmo principale solo se N i maggiore di due, poiché altrimenti il 
calcolo è banale e si svolge in altra sede. Il calcolo di un determinante di 
ordine superiore a due è organizzalo in Torma di routine perché servirà 
anche alla soluzione dei sistemi lineari ed occupa la parte compresa tra 
le righe 770-1200. 

Airintemo di questa routine, le variabili CTRIII, PII) e PIW) sono da 
mettere in relazione con la Formazione delie disposizioni ed il loro signi¬ 
ficato verrà pienamente chiarito in seguilo nel programma sulle disposi¬ 
zioni. Per quanto riguarda le altre; D è il numero delle disposizioni, F è 
il prodotto tra gli elementi delle colonne permutate ed il determinarne di 
secondo ordine loro complemento algebrico. DTM è il valore del deter¬ 
minante, D2 è il determinante del secondo ordine, infine, S (linea 1070) 
invene il segno ad ogni addendo, poiché, come t staio detto, gli addendi 
che concorrono a formare il determinante vanno presi alternativamente 
con il segno + e 

La seconda sezione si apre con una bella rappresentazione di un sistema 
lineare che facilita la comprensione dì come debbano essere inseriti i da¬ 
ti; la sua presenza non é indispensabile. 

1 sistemi con due equazioni vengono risolti come un caso particolare (li¬ 
nee 1940-2140); quelli formati da più di due equazioni vengono risolti 
immediatamente dopo (linee 2150-2390). DDS é il determinante del siste¬ 
ma, il quale deve essere diverso da 0, DDX è quello che si ottiene dal 
precederne sostituendo ad una variabile i termini noti (2260-2280). In 
entrambi i casi il determinante è calcolato dalla routine 770 già conside¬ 
rata in precedenza. 

U risultato é dato in forma frazionaria: X= DDX/DDS. ( lamini della 
frazione sono semplificati nella routine 2S70 la quale altro non é che 
l’algoritmo euclideo. 

NUME é il numeratore, DENO il denominatore. Se DENO è negativo si 
invertono i segni di entrambi in modo da avere un eventuale segno meno 
solo al numeratore. 

La memoria utilizzata ì di 6,4 K. 
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Fig. 12 

Passiamo ora ad una applicazione. Si voglia risolvere il seguente proble¬ 
ma: trovare l’equazione di terzo grado della curva passarne per i punti 
i4(-l,21), 0(1,15), C(2,15) e D( 3,9). La curva è illustrala nella figura 12 
e la sua equazione generica é: or 3 + bx 1 + ex + d - y. Il problema consi¬ 
ste nel trovare i coefficienti della variabile jr. 

Poiché la curva passa per il punto A, sostituendo le coordinate alle va¬ 
riabili x t y nell'equazione, deve essere soddisfatta la seguente ugua¬ 
glianza 


o(-l) 5 + é<-l) J + c(-l) + d = 21 
cioè -a + b-c + d = 21 

Poiché la curva passa anche per gli altri ire punti è lecito ripetere l’ope¬ 
razione con le loro coordinate. Si ottengono in questo modo quattro 
equazioni lineari che formano un sistema. 

I —a+b<+d = 21 

a+b+c+d = 15 
8fl + 4è+2c+d=15 
27a + 9b + 3c+d = 9 


É il momento ora di introdurre i dati nel computer. 
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RUN 


N = 4 

SCRIVI. KElJ-'aRDirc, I COEF¬ 
FICIENTI ED I TERMINI NOTI 

A ( 11 )1 
A(12)“I 
A(13> —1 
A(14 >*1 
H ( 1 ) <=21 

A <21)“1 
A( 22)=1 
A(23>-1 
A<24)“1 
H(2)*15 

A (31) =>8 
A<32>-4 
A(33)-2 
A (34 > *1 
H(3)-15 


A (41 ) *=27 
A<42>»9 

A(43)=3 

A(44)»1 
H(4>-9 


-48 

Xl= - 

48 

—1 

144 
X2= - 

48 

= 3 

-9& 
X3= - 

48 

—2 

720 

X4= - 

48 

« 15 


< ENTER > 


<ENTER> 

<ENTER> 

< ENTER > 
<E NTER > 
<ENTER> 

<ENTER> 
CENTER> 
<ENTER> 
<ENTER> 
<ENTER> 

&&Bl 

<ENTER> 
<ENTER> 

< ENTER > 

<ENTER> 
<ENTER> 
<ENTER> 
<ENTER> 
<ENTER> 


VUOI CONTINUARE? (S/N) 


I risultali rappresentano i valori delle incognite: a, b, c, d. L’equazione 
cercala è pertanto: 


y - -x 3 + 3 jt 2 -2x+ 15 


Integrali definiti 

Data una funzione /C»), continua e non negativa in un intervallo {a, ti), 
da un punto di vista geometrico l’integrale definito rappresenta l'area 
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Fig. 13 


dd trapezoide ABMN (vedi Figura 13), delimitato dalla curva di equazio¬ 
ne >=/W. dall’asse delle x e dalle parallele all’asse delle y, AM e BN. 
Se suddividiamo l’intervallo (a.b) in n pani di ampiezza A - ( b-a)/n , 
possiamo definire la seguente somma: 

S = /(jr,) x h +/(*>) x h +... +/(xj x h 

dovez, = a + ih, / = 1. 2, 3,..., n. 

D valore di S dipende dall’ampiezza delle parti A e pertanto dal numero 
delie suddivisioni n. Al variare di n avremo: 

Si, Si, Sm,"> 

L’ara del trapezoide e l’integrale definito dalla funzione /(x) sono 
uguali al limi te della successione S. per n tendente all’infinito. 

Il programma adotta tre metodi di integrazione: quello di Simpson con 
2/> intervalli, quello di Gauss con 12 punti ed un caso particolare di 
quest'ultimo quando l’estremo supcriore dell'intervallo sia infinito. 

Nei primo caso si utilizza la formula: 


i‘/Wdr = A/3 l/(ff) + 4 (/(x 1 )+/Ui) + ...+/U^.)) + 
+ 2 [/(*.)+/(*) + ...+/(x»«-i)l+/(&)) 
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b — q 

dove h * -jjj- e jt, = a+ift, eoo i-1, 2, 3,..., 2it. 

Nel secondo caso si utilizza la seconda fonnula: 

\\f{X)àx = (b-a )/2 x E w t xf(y t ) 


dove y, = vj(&-<j)/2 + «»-o)/2. I numeri v ( e iv, sono dermici nella pri¬ 
ma pane dei programma e memorizzati nelle variabili con indici VII) e 
W(l>. 

Nel terzo caso si usa la formula: 

il/Wdx - 2 x E w<(l+v,) , /0’<) 

dove ^ = 2/(1 + v,)+a-l. I numeri v, e w, sono gli stessi visti in prece¬ 
denza. 

Come piccola concessione alla forma si ì voluto definire il simbolo di 
integrale che appare quando vengono dati i risultati. 

La funzione integranda deve essere scritta nell'istruzione DEF di linea 
200 seguendo le istruzioni che appaiono sullo schermo: dopo di che, non 
consentendo il TI Basic il comando RUN 200, il programma deve ri¬ 
prendere dall'inizio. 

Successivamente bisogna inserire gli estremi deU’iniervallo nel quale si 
vuole integrare la funzione c, solo se si adotta il metodo di Simpson, va 
specificato in quante pani suddividere l’intervallo b-a. Aumentando n 
aumenta la precisione, tuttavia ì sufficiente pone n= 10 se b-a ha un 
valore unitario. 

La memoria utilizzata è di 3,3K. 

La tecnica di programmazione non presenta difficoltà e consiste nel se¬ 
guire le formule date. 

Ecco il listalo. 


JOO REM INTEGRALI 

110 REM 

120 REM di Sergia Bor»am 
130 REM versione:TI BASIC 
140 CALL CLEAR 
! 50 DI M Vili) , N ( 11 ) 

160 PRINT TAB(5)j"INTEGRALI DEFINITI 

170 FDR T = 1 TO 600 

100 NEXT T 

170 CALL CLEAR 

200 DEF F<X)=-X*X+1«X 

210 PRINT " DEFINIRE LA FUNZIONE DA'* 
220 FRI NT ’* INTEGRARE ALLA LINEA 200 DEL" 
230 PRINT "PROGRAMMA. SE SI E’ GlA * * 

240 PRINT "PROVVEDUTO PREMERE UN TASTO" 
250 PRINT "PER CONTINUARE"::c 
260 CALL KEYIO.K.S) 

270 IF S-0 THEN 260 

2SO CALL CHARU29. n OOOOO7OBO9O01GlS" > 

290 CALL CHAR<129,"1BlBl0101B1B10l0") 

300 CALL CHAR<130*"10101O1ODOE") 

305 CALL CHAR <131* '*000000001D22221D" > 
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-L'INTERVALLO VERRÀ" 

"N = ”:N 


SUDDIVI“SO IN 2N 


310 CALL CHAR < 132, -0O0000O0C02C20C" > 

320 rr-o 

330 call clear 

340 ES-0 

350 WtlNT ‘SCEGLI TRA 1 SEGUENTI HET0DI“ 

360 FRI NT "DI INTEGRAIIONE*: : c 
ITO PRINT *1. SlrtPSON":i 
380 PRINT “2. GAUSS" 2 s 

190 ORI NT -Z. GAUSS CON ESTREMO 5UPE- RIORE 

490 INPUT "SCELTA? “ 2 S 
410 !f 'S>0>*<S<4>THEN 450 
420 PRINT 

430 PRINT "DEVI PREMERE 1,2 0 3"*:: 

440 GOTO 400 

450 ON S GOTO 460,700,020 
460 CALL CLEAR 
*70 GOSUB 1400 
«<• PRINT 
490 PRINT 
500 INPUT 
510 PRINT 
520 INTEG-0 
530 H*<X2-X 1 ) /<2*N) 

540 SOMMALO 
550 NI-2*N-1 

560 FOR I-J TO NI STEP 2 

570 X*X1«I«H 

500 SOMMA-SOMMA+F (XI 

590 NEXT I 

600 INTEG-SOHPIAM 

610 SONMA-0 

620 N2*NJ-l 

630 FOR 1-2 TO N2 STEP 2 

640 X-XI+I«H 

65*7 SOMMA® SOMMA *F ( X ) 

UO f£*T I 

670 INTEG- INTE0+2»5ONMA*-F < X1 > +F CX2) 

680 INTEG-lNTEG*H/3 

690 GOTO 990 

700 CAUL CLEAR 

710 GOSUB 1400 

720 INTEG-0 

730 IF FF-1 THEN 730 

740 GOSUB IMO 

750 FOR 1=0 TO li 

760 Y«(X2-Xl>*Vm/2 

770 Y-Y+CX2-XU /2 

780 INTEG®INTEG*W( I )*F < Y) 

790 ICXT I 

000 INTEG-INTEG*(X2“K11/2 
010 GOTO 9B0 
820 CALL CLEAR 

030 PRINT "INTERVALLO DI INTEGRAZIONE 1 * 

840 PRINT "DA XI ALL’INFINITO-:: 

050 INPUT “XI - ■; X1 
860 PRINT 

870 IF FF® l THEN 090 

880 GOSUB MIO 

090 INTEGRO 

900 FOR 1*1 TO 11 

910 Y«(2/C1*V(I>>)*X1-1 

920 Y1*F € Y 3 / < ( l+Vll 1 >***2> 

930 INTEG»1NTEG+N(I>*Yl 

940 NEXT I 

950 INTEG-INTEG*2 

960 ES-1 

980 PRINT : : r 

990 IF ES-0 THEN 1020 

1000 PRINT TAB<3) 5CFMU31) |CHR»<132) 

1010 GOTO 1030 

1020 FU I NT TAB<2> C X2 

1030 PRINT TAB(3>pCHRt(l2B> 

1040 PRINT TAB(3MCK«4C129) ?"F(X)DX «"f INTEG 

1050 PRINT TAB <3> “CHR4 (1301 

1060 PRINT TAB(2)IXI:; : 1 

1070 GOTO 1320 

1080 REM 

1090 REM X<!> ,U(1I 
110C» REM 

UIO VICI*. 1232334095 
1120 V(11-.367B314909 
1130 V(2>=.5073179342 
1140 V<3>».7699026741 
USO V<4>-.9041172563 
1160 V(5)-.9015606342 
1170 V(6)*»-V(0) 


INFINITO":: s 


PARTI":r 
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Rg. 14 
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Vediamo ora qualche applicazione. 

I. Si voglia calcolare l’area della superficie limi (tua dalla parabola di 
apiariooe y = -r 1 + 4x e l’asse delle x. 

Li parabola incontra l'asse delle x nei punti di ascissa 0 e 4. polonio 
uno questi gli estremi deU’intervallo di integrazione (vedi figura 14). 
L'ina cercala i: 

Area - {* f(x)dx = JJ (-JT 1 - 4jr)djr 

Definiamo la funzione alla linea 200 del programma, otterremo il sc¬ 
iami? output. 


Riti 



Con cane e matita il risultato sarebbe stato 8/3, quindi in perlaio ac¬ 
cordo con il valore decimale ottenuto a) computa. 

Archimede seppe elaborare un metodo pa dare una risposta a questo ti¬ 
po di problemi più di 2000 anni fai 

1 Si voglia determinare la lunghezza di un arco della parabola di equa¬ 
nime j=r l averne pa estremi i punti 0(0,0) e P(l,l) (vedi figura 15). 
La formula pa trovare la lunghezza di un arco di curva piana è: 
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L - J* VI +/ #i W dx 

Poiché y<jr) =jr*. la sua derivala è: /'(jr) = 2x e /' J (x)=4x J . 

Alla linea 200 del programma definiamo la seguente funzione: 

OEF RX) = SQR(1+4-X*Xl 

Avviamo nuovamente il programma ed ecco cosa apparirà sullo scher¬ 
mo. 


RUN 


ESTREMO INFERIORE 

RI - 0 

CENTER> 

ESTREMO SUPERIORE 

X2 » 1 

CENTER > 

L'INTERVALLO VERRÀ' SUDDIVI¬ 
SO IN 2N PARTI 

N - IO 

CENTER > 

f 1 


| F(X >DX = 1.478942028 


J 0 


VUOI CONTINUARE? (S/N) 



I risultali ottenuli con in metodo di Simpson (A/= 10) e di Gauss concor¬ 
dano fino alla settima cifra decimale. 






_ CAPITOLO CINQUE 

Calcolo combinatorio 


btroduloae 

Secondo la definizione classica la probabilità che si verifichi un evento è 
dai dal rapporto tra il numero dei casi favorevoli ed il numero di casi 
possibili, purché tutti i casi siano ugualmente probabili. Ad esempio, la 
pobabilità di ottenere sei, lanciando un dado ben tarato, é 1/6 e la pro¬ 
babilità di ottenere un numero pari è 3/6, cioè 1/2. 

Talvolta tuttavia, calcolare il numero di casi possibili potrebbe presenta¬ 
re qualche difficolti. Nel gioco del poker, quante differenti mani si pos¬ 
sono formare? Qual è la probabilità di ricevere una scala massima di 
cuori servita? 

In questi problemi non è necessario, e sarebbe praticamente impossibile, 
{numerare tutti i casi possibili ma ci viene in aiuto il calcolo combinato¬ 
rio. 


DbfMdzionl e persiatazk)al 

Cane la maggior parte delle routine presenti in questo libro, anche quel¬ 
li per creare le disposizioni semplici, utilizzala nel programma che se¬ 
pie, è del tutto originale e non costituisce un adattamento da altre ver¬ 
doni di Basic. 

Dati n oggetti, si chiamano disposizioni semplici lutti i gruppi che si 
paooiio formare prendendoli a k a *, in modo che ogni gruppo differì- 
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sca dagli altri o per qualche oggetto o per l’ordine con cui gli oggetti so¬ 
no disposti. 

k deve essere minore o al massimo uguale ad n; in ogni gruppo un og¬ 
getto può comparire una sola volta, cioè non sono ammesse ripetizioni. 
Quando k=n, ogni gruppo contiene tutti gli n oggetti ed i gruppi diffe¬ 
riscono tra di loro solo per l’ordine con cui compaiono gli oggetti. Gli 
anagrammi sono un esempio di permutazione semplice. 

Poiché le permutazioni sono un caso particolare delle disposizioni, nel 
programma una sola routine svolge entrambe le funzioni e, nell'esposi¬ 
zione, ci riferiremo in generale alle disposizioni semplici. 

Il numero delle disposizioni i: 

(1) D Kt = n x (n-l)x(n-2)x... x(n-Ar-2)x(n-fc-l) 

Ad esempio, per n =4 e k- 3, risulta: 

D t J - 4x3x2 = 24 

Come si vede é semplicissimo calcolare il nutrirò delle disposizioni. Piò 
difficile é scrivere un programma Basic in grado di scrivere lutti gruppi 
di n oggetti presi a A: a * con «eli variabili. 

Se indichiamo con a,, a i, a s , a, i quattro oggetti, le 24 disposizioni sem¬ 
plici sono: 


0 itfrfj 

0I01O) 

0J0|0 2 

040101 

O 

0)fll04 

0)0104 

04010) 

a,a,a 2 

0(0)01 

0)0)01 

040)01 

a Idia* 

0)0)0* 

0)0)04 

040)0) 

0|0<02 

0)0401 

0)0401 

040)0| 

0|040) 

02040) 

0)040) 

040)0) 


Come si vede, per evitare ripetizioni ed avere la certezza di aver scritto 
in modo corretto tutti i gruppi si è seguito un certo criterio. Vediamolo 
attentamente perché esso è alla base del metodo adottato nella program¬ 
mazione. 

Stabiliamo di scrivere gli elementi di un gruppo, iniziando con gli oggetti 
aventi indice inferiore, pertanto al primo posto troveremo prima a ,, poi 
a 2 , ere. 

È importante la seguente considerazione. Si può affermare che il primo 
elemento di ogni gruppo possiede quattro gradi di libertà, infatti sarà 
uno dei quattro oggetti. 

Il secondo elemento, poiché non sono ammesse ripetizioni, possiede tre 
gradi di libertà, infatti, fissando l’oggetto al primo posto, al secondo sa- 
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li inserito solo uno degli altri tre oggetti. Analogamente, il terzo ele¬ 
mento ha due gradi di libertà. 

Formalo il primo gruppo si prosegue cambiando l'ultimo elemento, 
quello con minor grado di libertà; quando ha assunto i due possibili va¬ 
lori è necessario variare l’elemento con grado di libertà immediatamente 
superiore, controllando ogni volta che non ci siano ripetizioni. 

Nd programma N è il numero degli oggetti, K la classe e J= N-K+1 i il 
onore dei fattori nella formula (I) vista in precedenza. 

I contatori CTR(X) hanno l’indice uguale ai gradi di libertà dell’elemento 
dd gruppo a cui si riferiscono. 

Essi vengono inizializzati a uno e riportati a questo valore quando risul¬ 
ti CTfi(X) > X, cioè quando l’elemento ha assunto tutti i valori consentiti 
dal suo grado di libertà. Se la classe t 3, come nel nostro esempio, al¬ 
trettante sono le variabili di controllo, nell’ordine: CTRI4), CTRP), 
CTRI2J. X inizialmente prende il valore più basso J; si incrementa 
CTRI2) finché non i maggiore di 2; poi si pone CTRI2) = 1 e si incremen¬ 
ti CTRO), Finché il suo valore non é maggiore di 3; si riporta CTRI3) 
uguale b 1 e si prosegue incrementando CTRI4). 

Gli elementi che formano i gruppi sono caricati nel vettore PII); anche in 
questo caso l’indice é uguale al grado di libertà dell’elemento corrispon¬ 
dale. PII) viene inizializzato con i valori 1,2,3. Per la stampa delle let¬ 
tere dell'alfabeto basta riferirsi al munero dì codice *scn con l’introdu¬ 
zione CHR$(P(I) + 641; se FMI) = 1 è stampata la lettera A (codice 65), se 
P!l>=2 é stampata la lettera B (codice 66), e così via. 

Quando viene incrementato il contatore CTR(X) si incrementa anche 
PIX), con la convenzione che se risulta P(X)>N, P(X) assume il valore 
più basso diverso da quello attribuito in quel momento agli elementi con 
gndo di libertà superiore. Si controlla poi l'eventuale ripetizione di og¬ 
getti. Ad esempio, se l’ultima disposizione trovata é a,a,a, sarà 
CTA(4) = 1, CTRO) = 2, CTRI2) = 2 e P(4) = 1, PO( = 3, P<2)=4. 

D programma prosegue incrementando CTRO); poiché il nuovo valore 
supera il suo stesso indice, essa viene riportata uguale a 1 e si passerà ad 
ioaemeniare sia CTRO) che l’elemento con lo stesso indice PO) control¬ 
lando che il nuovo valore non sia uguale a quello deH'elemenio con indi¬ 
ce immediatamente superiore. Infine si controlla che l’elemento P(2) non 
abbia lo stesso valore di quelli con indice superiore, nel qual caso gli 
verrà attribuito il valore più piccolo tra quelli per cosi dire liberi. Al ter¬ 
mine del ciclo i nuovi valori dei vettori sono 1,3, 1 per CTR(X) e 1, 4, 2 
per PIX), corrispondenti, questi ultimi, agli oggetti a, a, ai. 

I vettori CTRIX) ePIXI non sono stati dimensionali ed i loro indici de¬ 
vono essere pertanto non maggiori di 10. Naturalmente é possibile di¬ 
mensionarli diversamente, aggiungendo l’istruzione DIM e modificando 
le istruzioni di protezione dopo l'input del numero degli oggetti N. 
Ricordiamo tuttavia che il numero delle disposizioni aumenta veloce- 
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mente all’auineniare di N ed è alquanto improbabile che qualcuno senta 
il desiderio di trascorrere qualche ora al computer per vedere sfilare an¬ 
che solo le 5040 disposizioni semplici di 10 oggetti della classe 4. 


100 REM DISPOSIZIONI SEMPLICI 
110 REM 

120 REM dii Sergi a Bortoni 
130 REM vvrviont: TI BASIC 
140 CALL CLEAR 

150 PRINT TAB(4)|"CALCOLO COMBINATORIO"t:c:: : 3 :x: : 

160 FOR T»1 TO 300 
170 NEXT T 

ISO CALL CHAR<120."OOOOOOFF”) 

190 CALL CLEAR 
200 PRINT "PREMI: " : : 

210 PRINT "1. PER LE DISPOSIZIONI SEM-":* PLICI DI N OGGETTI" 

220 PRINT -2. PER LE PERMUTAZIONI DI N"i" OGGETTI":: 

230 PRINT -3. PER FINIRE":: ;t 
240 CALL KEY(0.KK,S9> 

230 IF SS*0 240 

260 IF KK-49 THEN 300 

270 IF W*50 THEN 1640 

2BO IF KK-51 THEN 3030 

290 GOTO 240 

300 CALL CLEAR 

310 PRINT -PRÈMIt "?i 

320 PRINT "1. PER LE SPIEQAZIONI-|: 

330 PRINT "2. PER LE APPLICAZIONI**:::: 

340 CALL KEY(0,KK,SS> 

350 IF SS*0 ThCN 340 
360 IF KK=49 THEN 390 
370 IF K*>30 THEN 090 
300 GOTO 340 
390 CALL CLEAR 

400 PRINT "SIANO DATI QUATTRO OGGETTI; 

410 PRINT TABI IO);"A B C D"*: 

420 PRINT "PRENDENDOLI A TRE A TRE. SI" 

430 PRINT "FORMINO DEI GRUPPI Cht ÒIF-" 

440 PRINT "FERISCANO 0 PER QUALCHE 0G-" 

450 PRINT "GETTO 0 PER L'ORDPC IN CUI * 

460 PRINT -SONO DI9P05T! H :: : 

470 PRINT "SCRIVIAMOLI?":::: 

400 GOSUB 2940 

490 CALL HCHAR(23,3,32,26) 

500 PRINT : : 

510 CALL HCHAR(23,3,120,20) 

520 N*=4 
530 K*3 
540 J*N-K>1 
330 GOSUB 2900 
560 C»0 
570 C°C+1 

580 IF 024 THEN 710 
590 IF 09 THEN 610 
600 PRINT " "| 

610 PRINT C; 

620 FOR 1-0 TO K-l 

630 PRINT CHR4(P(N-I)»641|" "J 

640 NEXT I 

650 IF C/2-INT<C/2>T>CN 600 
660 PRINT " ", 

670 GOTO 690 
660 PRINT 
690 GOSUB 2770 
700 BOTO 570 
710 PRINT :: 

720 CALL HCHAR<23,3, I28,28> 

730 GOSUB 2940 
740 CALL CLEAR 

730 PRINT "IL NUMERO DELLE DISPOSIZIONI’i -Es 
760 PRINT TAB(3>|*D<4.3> - 4*3»2 - 24“«:t 
ZZO PRINT "IN GENERALE. PRESI N OGGETTI- 
780 PRINT “A K S K, D DELLA CLASSE K.E'":t 
790 PRINT "D(N,K)-fi*(N-lt»...»(N-K4ll“!iss 
eoo PRINT "vuol RIVEDERE LE D19P0SIZI0-" 

810 FRINT "NI DELL’ESEMPIO PRECEDENTE?":"CS/N)" 

820 CALL KEV 10.KK.SS> 

830 IP SS-0 THEN 620 
B40 IF KK-B3 T*N 070 
830 IF KK-70 TFCN 190 
060 GOTO 020 
870 CALL CLEAR 
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GOTO 00O 
CALL CLEAR 

PRINT 'QUANTI SONO GLI OGGETTI?" 

PAINT "«NON PIU* DI 10)"ss 
irruT "N - ":N 
ir N<11 TJCN 960 

PRINT • : "ATTENZIONE * DEVE ES^RE"x "N<-10, RIPROVA. "2 t 

BOTO 920 

PRINT 

PRINT "QUANTI OGGETTI FORMANO OGNI "* "GRUPPO**" il 
lr^njT -k » ”:K 

PRINT :t : 

D-N 

FOR 1-1 TO K-l 
D-D*(N-I5 
NEJtT 1 

PRINT "IL NUMERO DELLE DISPOSIZIONI"; “E * ! **f S 
PRINT "DC’lSTRBCN) I ", "SSTRBIKM") ■ B ;Dì<(: 

PRINT "VUOI VEDERE LE DI SPOSI! TONI ?"s-<S/N>" 

CALL KEYCO.KK.SS) 

IF SS=0 THEN 1070 
IF KK—03 TICN 1120 
1F KK-76 THEN 190 
BOTO 1070 
J-N-K+l 
60SUB 2900 
f>0 

PRINT :i 

PRINT "PER RAPPRESENTARE 8LI OGGET-" 

PRINT "TI VUOI NUMERI 0 LETTERE7": : 

PRINT "PREMI J "s 1 
PRINT ’l. PER I NUMERI" 

PRINT -2. PER LE LETTERE* 

CALL KFVC0.KK.66> 

IF SS-0 THEN 1210 
IF KK-49 THEN 1260 
IF KK-50 THEN 1430 
BOTO 1210 
PRINT ss:: 

CALL HCHAR(23,3,120,20) 

C*CM 

IF C<*D THEN 1330 
PRINT ;:i 

CALL HCHAR <23, 3. 120.29) 

PRINT : t 
GOSUB 2940 
GOTO 190 

PRINT TAB(3-LEN(STR* <C>>>SCl"- "1 
FOR 1-0 TO K-l 
PRINT P(N-I)t 
NCIT I 
PRINT 

. IF C/IO<>INT(C/I0)THEN 1430 
0 GOSUB 2940 
CALL HCHAR«23,3,32,2B> 

GOSUB 2770 
GOTO 1200 
PRINT tic: 

CALL «HAR <23, 3, 129,20) 

C-C+l 

IF C< "D TFCN 1340 
PRINT 

CALL HCFMR(23,3,120,20) 

PRINT ss 
GOSUB 2940 

IF FLAG-I THEN 1930 ELSE 190 
PRINT TAB<3-LEN<STR§<C>>>SCI"S 
FOR 1-0 TO K-l 
FRINT CWR6<P<N-I)*64)I" "I 
NEKT 1 
PRINT 

IF C/10< >INT(C/10)THEN 1620 
GOSUB 2940 
610 CALL FCHAR(23,3,32,26) 

620 GOSUB 2770 

630 GOTO 1470 

640 CW_L CLEAR 

630 PRINT "PREMI:"ss 

660 PRINT "1. PER LE SPIEGAZIONI"11 

670 PRINT "2. PER LE APPLICAZ IONI "a : 

6B0 PRINT -3. PER GLI ANAGRAMMI ."m 
690 CALL KEY CO,KK.SS) 

700 IF SS-0 THEN 1690 

710 IF KK—49 THEN 1730 

720 IF KK—30 THEN 2120 

730 IF KK—51 THEN 2330 


* 





























































































































CALCOLO COMBINATORIO 


123 


2600 PRINT 

re,io gosob 2940 

2620 GOTO 190 

2630 PRINT TAB(3-LEN<STR* fC) ) ) SC; 1 

2640 FOR I«0 TO K-l 

2630 PRIMI A*IP<N-I)11 

2660 NEXT I 

2670 PRIMI 

2680 ir C-'10< >INTtC/IO)THEN 2710 

?&90 GOSUP 2940 

2700 CAlL KCKAR (23,3,32, 20) 

2710 BOSUB 2770 
V20 GOTO 2560 
2730 PGM 

2740 REM RICERCA 

2750 REM DISPOSIZIONI 
2760 REM 
7770 X-J 

278i) CTR'X)*CTR<X>*M 

2790 IT CTROIX-X THEN 2040 

2800 CIRU)»! 

2019 X«X-*« 

2820 1F X>N THEN 2930 

2870 BOTO 2700 

2840 FOR K»X IO J STEP -I 

2850 P<W)«P(W>+I 

2860 IF W=N THEN 2920 

2870 1F R'MX*N TPCN 2090 

2880 P IN) * 1 

2890 FOR I B WM TO N 

2900 IF PIU) ^PII)THEN 2050 

2°I0 NEXT I 

2920 MEIT M 

2930 RETURN 

2440 PRINT TABC5)1 H - PREMI UN TASTO 
2930 CALL KEV(O.KK.SS) 

296«> IF 5S°0 THEN 5950 

2970 RETURN 

2980 FOP T«J TO N 

2990 CTR ( I ) ■ 1 

7000 pt|)»NM-I 

20!0 NEXT I 

3020 RETURN 

3030 CALL CUBAR 

3040 END 


D carattere 128 (linea 180) serve a creare una lina orizzontale che verrà 
pana all'inizio e a) tornine della stampa defle disposizioni. Dalla riga 
400 alla 880 si trovano le spiegazioni sul signifioto delle disposizioni 
ampli d e, a titolo d’esonpio, vengono stampate le 24 disposizioni son- 
pBd relative a quattro oggetti presi a uè a tre. La ricerca dei gruppi è 
svolta dalle routine 2980 e 2770, le stesse utilizzate quando sarà Putente 
a stabilire il numero degli oggetti e la classe K; semplicemente, prima di 
richiamare le routine, viene posto N«4 e K-3 (linee 520-530). Le istru¬ 
zioni 680-670 servono a stampare due gruppi per ogni riga in modo che 
al tornine siano visibili tutte e 24 le disposizioni per meglio laminarle. 
Alla lina 690 inizia la pane applicativa. Il ciclo FOR-NEXT (1010-1030) 
caloria il Qumero delle disposizioni che viene stampato con le istruzioni 
relative. I gruppi che costituiscono k disposizioni sono scritti solo su ri- 
dneoa e ri utilizzano due differenti cidi di stampa a seconda che gli og¬ 
getti siano rappresentati con dfre o lettere; nd primo caso l'istruzione 
PRINT è quella di riga 1370, nd secondo quella dì riga 1560. Le condi¬ 
zioni poste alle linee 1400 e 1690 sovooo a scriver i dati in blocchi di 
dieri; scrino un blocco il programma si ferma e ripane alla pressione di 
un tasto qualsiasi. Lo scopo è quello di dare all’molte il tonpo di esa¬ 
minare quanto appare sullo sdì omo, senza costringerlo a bloccare Tese- 
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cuzione premendo FCTNH4I per poi proseguire con il comando immedia¬ 
to con < ENTER >. La variabile FLAG dì linea 1530 è necessaria poiché 
qud ciclo di stampa è utilizzato anche dalla sezione 2 del programma 
per stampare un eempio di permutazioni. PERM è il numero delle per¬ 
mutazioni ed è il fattoriale di N (2190-2220). Poiché queste sono un caso 
particolare di disposizioni in cui la classe K é uguale al numero degli og- 


RUN 


PREMI: 

1. PER LE DISPOSIZIONI SEM¬ 
PLICI DI N OGGETTI 

2. PER LE PERMUTAZIONI DI N 
OGGETTI 

3. PER FINIRE 


PREMI: 

1. PER LE SPIEGAZIONI 

2. PER LE APPLICAZIONI 


QUANTI SONO GLI OGGETTI'’ 
(NON PIU* DI IO) 


QUANTI OGGETTI FORMANO OGNI 
GRUPPO? 


IL NURERO DELLE DISPOSIZIONI 

E': 

D<5,3> =* 60 

VUOI VEDERE LE DISPOSIZIONI? 
(S/N> 


PER RAPPRESENTARE GLI OGGET¬ 
TI VUOI NUTERI O LETTERE? 

PREMI: 

1. PER 1 NURERI 

2. PER LE LETTERE 


1 - A B C 

2 - A B D 

3 - A B E 

4 - A C B 

5 - A C D 


<1> 


< 2 > 


<ENTER> 


<ENTER> 


<S> 


< 2 > 


58 - E D C 

59 - E D A 

60 - E D B 


- PREMI UN TASTO - 
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getti N, basta porre questa condizione (linea 2310) e rimandare il pro¬ 
gramma alla sezione precedente (linea 2320). 

L’ultima parte è dedicala alla scrittura degli anagrammi di parole forma¬ 
te da non più di 10 lettere. L’anagramma consiste nel permutare le lette¬ 
re di una parola. Da un punto di vista enigmistico l’anagramma dovreb¬ 
be consistere in un secondo termine dì senso compiuto, così come da 
“caro” si può ricavare "arco”, oppure "orca”; ma il nostro TI 99/4A, 
che non possiede il Fine senso letterario del computer, stamperà indiscri¬ 
minatamente tutte le permutazioni comprese "rcoa” e “roac”. 

Il vero cuore del programma è la routine Z770-2930 (vedi il diagramma 
di figura 16), essa va utilizzata dopo che le variabili con indice CTR e P 
sono state inizializzate nell’altra routine di linea 29B0. 

CTR coma quante volle è stato cambiato l’elemento che occupa una cer¬ 
ta posizione nel gruppo. L’istruzione Z79Q controlla che un certo ele¬ 
mento non venga cambiato più del necessario; se un elemento ha due 
gradi di libertà, potrà cambiare solo due volte, dopo di che ne verrà 
cambiato un altro; per questa ragione CTRI2I non può mai essere mag¬ 
giore di due, analogamente CTRO) non può essere mai maggiore di tre, 
ecc. L'oggetto che fa parte di un gruppo viene cambiato con l’istruzione 
2850, il ciclo FOR-NEXT 12890-2910) controlla che non si siano verifica¬ 
te ripetizioni. 

La memoria utilizzata è di 6,1 Kbyie. 

Vediamo ora un esempio pratico di utilizzazione. Per la stampa delle 60 
disposizioni il TI 99/4A ha impiegato meno di 1 minuto. 


Combinazioni semplici 

11 programma i strutturato come il precedente: la prima parte è riservata 
alle spiegazioni, la seconda alle applicazioni. Le combinazioni semplici 
costituiscono un sottoinsieme delle disposizioni semplici essendo formate 
da gruppi di n oggetti presi a k a k in modo tale che differiscono solo 
per almeno un oggetto ma non per l’ordine in cui gli oggetti sono dispo¬ 
sti. Il numero delle combinazioni t dato da: 



Nel caso particolare in cui sia n =5 e 3, il numero delle combinazioni 
semplici è: 




5x4x3 


10 


3x2x1 
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Un'originale routine, di cui si riporta il diagramma a blocchi, fornisce, 
oltre al numero delle combinazioni, anche la loro stampa per ogni valore 
di n inferiore o uguale a venti. Per a >20 è necessario dimensionare di¬ 
versamente il programma neU'istruzioDe DIM ed in quella che controlla 
seni £20. 



fig. 17 


11 concetto base consiste nel caricare i valori numerici da attribuire ad 
ogni elemento di un singolo gruppo in una variabile con indice EOO 
compreso tra 1 e Ir. Il vettore E1X) viene inizializzato con lo stesso valore 
deU’in dice: EH) = 1. B2)=2, R3) = 3, ecc.; si aumenta la variabile con 
indice maggiore finché il suo valore t uguale ad n, dopo di che si incre¬ 
menta il valore della variabile con indice immediatamente inferiore. 
Nell’esempio, già citalo, di combinazioni di S oggetti della classe 3, la 
I routine attribuisce successivamente al vettore EOO i seguenti valori: 



ehi 

E(2t 

EI3) 


ehi 

Et 2) 

EOI 

1 — 

i 

2 

3 

6 — 

i 

4 

5 

2 — 

i 

2 

4 

7 — 

2 

3 

4 

3 — 

i 

2 

5 

8 — 

2 

3 

5 

4 — 

i 

3 

4 

9 — 

2 

4 

5 

5 — 

i 

3 

5 

10- 

3 

4 

5 
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790 FOR 1-1 TO 6 
900 PRINT CHR*(120>1 
Bio rcxT i 
020 PRINT 

030 PRINT TAB (17) |"K!"I1 
040 PRINT -OVVERO:-::: 

050 PRINT TAB(a>| a NCN-IMN-2>... <N-K*l>" 

060 PRINT -C<N,K)--| 

070 FOR I-| TO 21 
080 PRINT OR*< 12B) I 
090 NEKT I 
900 PRINT 

910 PRINT TABU7)|*K! 

920 GDSUB 2020 
930 GOTO 200 
940 CALL CLEAR 

950 PRINT -SCRIVI IL I4JTWO DI OGGETTI "zr 
960 INPUT *N - “iM 
970 N-ABSdNT(N) ) 

900 PRINT :: 

990 PRINT -DI QUALE CLASSE SONO LE COtt-": "BINAZIONI? <K<-N>"t: 

1000 INPUT “K - “:K 

1010 IF K<-N T>€N 1040 

1020 PRINT >:-ERRILE* RIPROVA-:: 

1030 GOTO 1000 
1040 GOSUB 1410 
1050 GOSUB 1490 
1060 PRINT t : : 

1070 PRINT “IL NUMERO DELLE COnB INAZIONI - 
1060 PRINT -SEMPLICI E*l “i : 

1090 PRINT TAB(0>?-C 
1100 PRINT i tt 
1110 1F NQ21 TtCN 1140 
1120 GOSUB 2020 
1130 GOTO 200 
1140 PRINT 


1140 PRINT -VUOI VEDERE LE 
1150 CALL K£Y(O t KEY-STATO) 
1160 IP STATO-O THEN USO 


COMBINAZIONI?-: - (S/N) * 


1170 IF KEY-83 TVCN 1200 
1100 IF KEY-78 THEN 200 
1190 60T0 1150 
1200 PRINT ::: 

1210 PRINT "VUOI CIC GLI OGGETTI VENGANO” 
RAPPRESENTATI CON HJfCRI 0“ 


PRINT ... 

PRINT -LETTERE?"::a 


1 

l_._ . ______ 

1240 PRINT 
1250 PRINT 
PRINT 


1270 CALL KEYIO.KEY.STATO) 
1280 IF STATO-O TVEN 1270 
1290 IF KEY-4? TWN 1320 
1300 IF KEY-30 THEN 1340 
1310 GOTO 1270 
1320 FLAG-1 
1330 GOTO 1330 
1340 FLAG-2 
1330 GOSUB 1730 
1360 GOSUB 2020 
1370 GOTO 200 
1380 REM 

1390 REFI INIZIAL1ZZAZIOFE 

1400 REFI 

1410 FOR 1-1 TO K 
1420 CR<I)-N-K*1 
1430 E( I)-I 
1440 NEXT I 
1430 RETURN 
1460 REFI 

1470 REM MJ1. COMBINAZIONI 
1480 REFI 
1490 CFK-N 
1300 KK-I 

1310 FOR 1-1 TO K-l 
1320 CNK-CFK* <N-11 
1330 KK-KK»CI*I> 

1340 NEXT 1 
1330 CNK-CNK/kX 
1560 RETLRN 
1370 REFI 

ISSO REM COMBINAZIONI 

1390 REFI 
1600 X—K 

1610 EtX»-E(X)*l 

1620 IF EIXX-OMXFTVCN 1650 

1630 X-X-l 

1640 GOTO 1610 


‘PREMI ; ; 

■1. PER I FUN ERI" ;; 
■2. PER LE LETTERE - ;; 
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1630 

1660 

1670 

1600 

1690 

1700 

1710 

1720 

1730 

1740 

1730 

1760 

1770 

1760 

1790 

1900 

1610 

1320 

1030 

1640 

1B30 

1660 

1070 

1880 

1690 

1900 

1910 

1920 

1930 

1940 

1930 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2030 

2060 

2070 

2080 


IF X-K THEN 1710 

FOR TO K 

C-Ol 

E < 11 ■£ ex) ♦C 
NEXT ! 

RETURN 

REM 

REM STATUA 

REM 

CTR*0 

PRINT : : : i 

PRINT "COMBINAZIONI SEMPLICI." 

CALL HCHAR(24,3,120,20) 

PRINT 

CTR-CTR+1 

1F CTR>CNK THEN 1930 

PRINT TAB(6-LEN (STR* <CTR>))?CTR;* 

FOR 1-1 TO K 

IF FLA6**1 T*CN 1070 

PRINT CHR»(64+E(I)); 

GOTO 1880 
PRINT STRI(E(I >il 
NEXT 1 
PRINT 

IF CTR/10<>INT(CTR/10)THEN 1920 

GQ5UB 1990 

IF CTR-CW THEN 1930 

GOSUB 1570 

GOTO 1800 

CALL HCHAR<24,3,128,20) 

PRINT 

PRINT TAB<23)1"FINE"::: 

RETURN 

REM 

REM PRCMI UN TASTO 
REM 

PRINT “ - PREMI UN TASTO -* 


RETURN 
CALL CLEAR 
END 


Seguono alcune brevi note al listalo. 

150: il dimensionamento riguarda gli oggetti con i quali si vogliono otte* 
nere le combinazioni (variabile con indice E) e una variabile di controllo 
(CR) per la formazione dei gruppi. 

170: il carattere 128 traccia una linea orizzontale usata anche come linea 
di frazione. 

200*300: menù che rinvia alle due sezioni del programma; le spiegazioni 
occupano le righe 310*930, esse hanno solo uno scopo espositivo e non 
necessitano di commenti; le applicazioni vanno da riga 940 a riga 1370; 
le istruzioni seguenti costituiscono delle routine. 

960: il numero degli oggetti viene memorizzato nella variabile N; la linea 
seguente protegge il programma nell'eventualità che venga digitato un 
numero negativo con dfre decimali. 

1000: K è la classe delle combinazioni, ovvero il numero degli oggetti 
che formano ogni gruppo. 

1110: le combinazioni non vengono stampale se N è maggiore di 20. 
1320-1340: la variabile FLAG condiziona la stampa di oumeri (FLAG= 1) 
o lettere (FLAG = 2) po' rappresentare gli oggetti. 

1410-1450: souoprognunma inizializzazione. Le variabili di controllo 
CR(I) assumono i valori iniziali N-K+l, vale a dire che, se N = 5 e K = 3, 
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le ire variabili di controllo avranno i valori 3, 4 e 5. 11 vettore Eli) con¬ 
tiene invece gli oggetti rappresentati inizialmente dai numeri progressivi 
1,2, 3»... lino a K. 

1490-1560: sottoprogramma per il calcolo del numero delle combinazio¬ 
ni L'istruzione 1520 calcola il numero delle disposizioni, mentre la 1530 
calcola il fattoriale di K. 

Alla linea 1560 si calcola il numero delle combinazioni; per risparmiare 
memori» usiamo sempre la variabile CNK poiché non è necessario con¬ 
iavate il numero delle disposizioni. 

1600-1710: routine per creare le combinazioni (vedi diagramma a bloc¬ 
chi, figura 17). 

1750-1980: sottoprogramma per la stampa delle combinazioni. L’istru¬ 
zione 1820 ha lo scopo di allineare a destra i numeri progressivi. In base 
ri valore di FLAG (linea 1840) si stampa una lettera (linea ISSO) o un 
numero (linea 1870). L'istruzione 1900 ferma il programma ogni 10 
combinazioni; esso riprende alla pressione di un tasto. 

La memoria occupata i di 4,3 Kbyte. 

Vediamo ora un’applicazione riguardante il gioco del lotto. 
Proponiamoci di voler calcolare la probabilità di indovinare un terno in 
una ruota (le ruote sono le dieci città: Bari, Cagliari, Firenze, Genova, 
Milano, Napoli, Palermo, Roma. Torino e Venezia). Il metodo potrà es¬ 
sere esteso agli ambi, alle quaterne ecc. 

I temi sono combinazioni semplici di 90 oggetti (numeri) presi a tre a 
tre, pertanto il numero di eventi possibili i: 

C(») = 117480 


RUN 


SCRIVI IL NU1ERO DI 06GETTI 


N = 90 

CENTER > 

DI OLIALE CLASSE SONO LE 
COMBINAZIONI? (KC-N) 


K = 3 

CENTER> 

IL NUMERO DELLE COMBINAZIONI 
SEMPLICI E * : 


C - 117480 


- PREMI UN TASTO - 
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Ma attenzione! Nel calcolare la probabilità si deve tener presente che i 
numeri estratti sono S; essi, presi a tre a tre, danno luogo a 10 combina¬ 
zioni. 

Dunque le probabilità di fare terno sono: 


P = 




1 

117480 


1 

11748 


Lo stato paga solo 4230 volte la posta! 


Distribuzione nomale o gaussiana 

Alcuni concetti statistici sono applicali anche nell'ambito della misura di 
una grandezza fisica. É questo un campo nel quale molli presuppongono 
che si possano raggiungere delle conoscenze con la massima accuratezza 
e precisione, ogni misura t soggetta a limitazioni e ad «Tori casuali. Se, 
ad esempio, volessimo misurare il periodo di oscillazione di un pendolo, 
ripetendo l’esperienza più volte, otterremo spesso valori diversi e saremo 
infine portati a ritenere come più probabile il valore medio. 

jt = — (JTi + Xj+Jfj + ... +*„) 

n 

Per avere indicazioni sulla distribuzione dei dati attorno alla media, è 
comunemente usato lo scarto quadratico medio. 

' - Jt ,5 <*-*' 

Valori piccoli di p significano che i risultati delle misure si addensano at¬ 
torno al valor medio, contrariamente i risultati sono dispersi in un inter¬ 
vallo più ampio. 

Quando il numero delle prove è elevato (alcune centinaia), riportando in 
un istogramma le frequenze relative ai vari risultati ottenuti, si ottiene 
un grafico simile a quello di figura 18. 

Il programma che segue consente di dimostrare che una tale distirbuzio- 
ne ì in buon accordo con una distribuzione normale o gaussiana. 
Questa, in termini matematici, t data dalla funzione: 

I 

o V2ir * 


m = 
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dove la quantità a è chiamata deviazione standard e, per un numero ele¬ 
valo di misure, coincide con lo scarto quadratico medio. 

La funzione /( x) indica quale sia la probabilità che una misura dia per 
risultato un valore jr. 11 grafico della funzione è una curva a campana. 
L’area della superficie racchiusa dalla curva e dall’asse delle Jr è uguale 
ad I, mentre l’area delimitata sotto la curva tra due valori a e b t < 1 e 
rappresenta le probabilità che x sia compreso tra a e b; ricordando il si¬ 
gnificato geometrico dell’integrale, tale probabilità i: 

P. = dx 

Ad esempio si dimostra che una misura ha una probabilità del 68,3^ di 
cadere neli'iniervallo x-a, x-t-o. Vedi figura 19. 

Ora vediamo come viene condotto il confronto tra la distribuzione di 
dati sperimentali ed una distribuzione gaussiana. 

Innanzitutto, è ovvio, bisogna disporre di dati sperimentali. Questi non 
possono essere sostituiti con valori casuali generali dal computer, in 
quanto essendo questi ultimi equiprobabili non godrebbero di una distri¬ 
buzione normale di probabilità. 

Tornando all’esempio della misura del perìodo di oscillazione di un pen¬ 
dolo, i necessario ripetere l’esperienza numerosissime volte (200 o 300) e 
segnare quante volte si ripetono gli stessi risultati. Per avviare il prò- 
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gramma è sufficiente scrìvere il valore minimo, quanti diversi risultati si 
sono ottenuti (fino ad un massimo di 30) e qual t la minima differenza 
tra un risultato e Tallio (ad es.: 1/100 di secondo). Il computer chiederà 
quante volte sono stali ottenuti i singoli risultati. Dopo questa operazio¬ 
ne si può accedere a diverse sezioni del programma, tutte indipendenti 
una dall'altra e che pertanto possono essere eseguile in modo non se¬ 
quenziale. 

Le funzioni svolle sono le seguenti: (1) tabulazione dei risultati e loro 
rappresentazione in forma di istogramma; (2) calcolo del valore medio; 
(3) tabulazione degli scarti dalla media; (4) tabulazione degli scarti qua¬ 
dratici; (S) calcolo dello scarto quadratico medio; (6) calcolo delle pro¬ 
babilità che un risultato cada in un dato intervallo; (7) tabulazione delle 
frequenze teoriche previste per una distribuzione gaussiana; (8) confron¬ 
to tra l’istogramma dei risultali sperimentali e quello dei valori previsti 
in base alla funzione di distribuzione normale. 

Le principali variabili utilizzate nel programma sono: MIN, minimo va¬ 
lore ottenuto nella serie di misure; DX. scarto minimo tra due risultati; 
N, numero di diversi risultali ottenuti. 

( singoli risultati sono pertanto: MIN, MIN + DX, MIN + 2DX, 
MIN + 3DX, ecc.; il numero delle volte in cui si sono ottenuti questi valo¬ 
ri viene caricato nella variabile con indice Ad). 

La base è 0, così AIO) corrisponde al risultato MIN, Alt) a MIN + DX, 
A12) al successivo, e cosi via. 

U totale ddle misure risulta: 


N -1 

M - E /4(i) 
i-a 
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Po il valore medio si usa la relazione: 

jr » jj L (M/yV+i x DX) xA(f) 


Naturalmente questa sommatoria si ottiene con le istruzioni Basic. 

MEDIA = 0 

POR 1 = 0 TO N-1 

MEDIA = MEDIA + IMIN + l«DXI* Adi 

NEXT I 

Lo scorto quadratico medio si trova con una formula analoga a quella 
data in precedenza 


fi = J 1 /M V A (i) X (MIN +i x DX-MEDIaU 2 

Chiamalo per semplicità Z, ogni risultato precedentemente espresso nella 
forma MlN+i»DX, la probabilità di ottenere l’i-esimo valore è calcolala 
eoo la formula: 


p = DX t -i/n 

M V5» 

Le frequenze teoriche, memorizzate nel vettore COI, sono allora: MxP r 
U programma fornisce la tabulazione dei vettori Ad) e Cd), cioè dei va¬ 
lori sperimentali e di quelli previsti teoricamente, e il confronto tra gli 
istogrammi. 1) computer dimensiona automaticamente i grafici e li mo¬ 
stra contemporaneamente sullo schermo in due diversi colori. Se l’espe- 
rienza è ben condotta ed il numero delle misure i sufficientemente gran¬ 
de, si deve notare un accordo tra i due istogrammi. 

Infine, il calcolo delle probabilità che un valore cada in un dato interval- 
I lo è ottenuto integrando la funzione /fa) con il metodo di Simpson. 
|- L'intervallo va specificalo nella forma ±h. Attribuendo ad x il valore 
medio e ad A lo scarto quadratico medio, si ha l'immediata conferma 
che la probabilità è il 68,3ft. 

Per permettere di utilizzare il programma anche a chi non dispone di 
adeguati risultati sperimentali, si riporta la seguente tabella con i valori 
ottenuti nel corso di una esercitazione di fisica, tenuta presso l'Universi¬ 
tà di Padova. I risultati, riguardanti piti di trecento misure, si riferisco¬ 
no alla lunghezza di una colonna di sferette contenute in un tubo di pie- 
riglass e sono dati a meno di una costante. 
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490 INPUT "DEGLI INTERVALLI - 
500 IF NC-30 THEN 330 
310 PRINT ••"SPIACENTE, NON PIU’ DI 30. "i I 
320 GOTO 400 
530 PRINT ut 

340 GOSUB 3530 

330 CALL CUEAR 

560 PRINT M ORA SCRIVI LE FREQUENZE RE-"l"LATIVE AD OGNI INTERVALLO"!c 

370 PRINT "NUM. - VALORE - FREQUENZA" 

380 I^ALL^HCHAR (24, 3, 145»28) 

600 n-o 

610 MAX-0 

620 FOR 1-0 TO N-l 

630 PRINT STRSCI+I>J") "f TAB <8) |M1N+DX« 11 TAB < 17) I 
640 INPUT A(I) 

650 n-M*Ad> 

660 IF AUX-NAX THEN 680 
670 HAI-A ( I ) 

680 NEKT I 

690 CALL CLC/V? _ 

700 PRINT "PER LA SCELTA PREMI IL"i "NUMERO CORRISPONDENTE"t I 
-1. FREQUENZE SPERIMENTALI" 

VALORE rrEDIO" 

SCARTI DALLA MEDIA- 
SCARTI QUADRATICI" 

CARTO QUADRATICO P 


710 PRINT 
720 PRINT 


730 PRINT 
740 PRINT 
750 PRINT 
760 PRINT 
770 PRINT 
700 PRINT 
790 PRINT 


' 2 . 

* 2 . 

■4- 

‘ 3 . 

* 6 . 

■7. 

■8. 


PEDIO" 


NTERVALLD" 
NORMALE" 
Z E SPER IMENTALI E LA di- 

proqrammA"! i 


UN DATO INTE 
19TP IBUZ IOPE 


PROBABILITÀ 4 DI UN EVENTO"l *' IN 
FREQUENZE TEORICHE PER"l" UNA DI 
CONFRONTO TRA LE FREOUEN— H i~ 

STRIBUZIONE GAUSSIANA*!"9. FINE 
000 CALL KEYIO.K-S) 

010 1F 6-0 THEN èoO 

820 IF <K<49)♦0038)THEN 800 

030 K-K-40 

040 ON K GOTO 830,1200,1340,1600,IBI0,1910.2240,2580,3590 
050 CALL CLEAR 

060 PRINT -FREQUENZE SPERIItNTALI" 

870 CALL HCHAR(24,3,143,28) 

680 PRINT 

090 PRINT "r*JM. - VALORE - FREQUENZA" 

900 CALL HCHAR(24 P 3, 143,28) 

910 PRINT 

920 FOR 1-0 TO N-l 

- - -- —jTAB(22-LEN<8TR«<Ad>l>>|AU> 


930 PRINT 8TR4(I+l>I")"f TAB(B>|MINd*DX11 

?so àMité*iisè 0<>IN ' nl,M>/l0>7HEN 970 


960 CALL HCHAR<23,3,32,28) 
970 ICXT I 

990 CALL HCHAR <24,3,143,28) 
990 PRINT 


1000 PRINT "NUMERO TOTALE"I"DELLE MlSUR£i"| 

1010 PRINT TABC22—LEN<9TR4(M)>)|M 
1020 CALL HCHAR(24,3.143.29> 

1030 PRINT ■> "VUOI VEDERE L’ IBTOGRAWIA'?" • " (0/N) ’ 


1040 CALL KEY(O-K.S) 
1050 IF 9-0 THEN 1040 


1060 IF K-70 THEN 690 
1070 IF K-83 THEN 1090 
1000 GOTO 900 
1090 INIZ-C30~N>/2 
1100 FOR 1-0 TO N-l 
1110 B(I)-AU) 

1120 NEXT I 
1130 U-MAX/20 
1140 ULT-N-1 
1130 COL-133 
1160 CALL CLEAR 
1170 G09UB 3260 
UBO G09UB 3350 
1190 GOTO 690 


1200 CALL CLEAR 
1210 PRINT "VALORE 


_ _, _EDIO" 

1220 CALL HCHAR<24,3,143,28) 

1230 PRINT 11 i 
1240 GOSUB 3370 

1250 PRINT "NUMERO TOTALE DELLE MISURE"!■ 
1260 PRINT " N —IMi ■ 

270 PRINT “VALORE PCDlO’n 


... X IINT < 10OO#MEDlA> / lOOOi 111 

1300 CALL HCHAR(24,3,143,28) 

1310 PRINT 
1320 GOQUB 3330 
1330 BOTO 690 
1340 CALL CLEAR 

1350 PRINT "SCARTI DALLA MEDIA" 
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?230 
7240 
2230 
2260 
22 70 
2700 
2290 
2300 
2310 
2320 
2330 
2340 
2330 
2360 
2370 
7380 
2390 
2400 
2410 
2420 
2430 
2440 
2430 
2460 
2470 
2480 
2490 
2300 
2310 
2520 
2530 
2540 
2350 
2560 
7570 
7380 
2390 
7600 
2610 
2620 
2630 
2640 
2630 
2660 
2670 
2680 
2690 
2700 
7710 
7720 
2730 
2740 
2730 
2760 
2770 
2700 
7790 
• 2800 
I 2810 


30 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

7920 

2930 

2940 

7930 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3030 


070 

3060 


GOSUB 3330 
GOTO 690 
CALL CLEAR 

PRINT "FREQUENZE TEORICHE" 

CALL^HCHAR(24,3,143,28) 

PRINT ; P1 RAPPRESENTA LA PROBABILI-":"TA' CHE UNA MISURA CADA 6CL- 
PRINT “L’iESIMO INTERVALLO.- 

PRINT "ALLORA. PER M PROVE, M*Pi E*":"LA FREQUENZA TEORICA PER" 
PRINT “OGNI INTERVALLO"!:: 

SOSUB 3330 

CALL HCHAR(23.3.143,2B> 

PRINT "N. - VALORE - Pi - M*P1" 

CALL HCHAR(24 P 3,143,28) 

PRINT 

IF FF2-1 THEN 2390 
GOSUB 3440 
POR 1*0 TO N-i 
V-MlN*l*DK 

PI-EXP<-.3*<(V-fCDIA)/SQM)~2> 

PI-PI •. 39894 *DX/SOM 

PRINT 9TR8<I+1>I*> "1TABC3) iV|TAB( 14> f1NT< IOOO*PI) /IOOOI 
MPI -INT ( 1O* («♦PI«■. 03» ) /10 
IF 1-INT (TIFI >T)CN 2400 
HP*«STR*(HPI) 

BOTO 2490 

MP4-STR* ( MPI ) l*“ . O" 

PRINT TAB (26-LEN(PP9) > |W>4 

IF < JM)/10<>INT< (1+1)/IO)THEN 2530 

GOSUB 3350 

CALL HO a MR(23, 3, 32,29) 

NEKT I 

CALL HCHAR<24,3,143,28) 

PRINT fi 
GOSUB Ì330 
GOTO 690 
CALL CLEAR 

PRINT "CONFRONTO DEGLI ISTOGRAMII " 

CALL MCHAR(24.3.143,28) 

PRINT i i i-APPARIRONO, A SINISTRA, “ » m L m ISTOQRAPHA DELLE FREQUENZE' 
PRINT "SPERI PUNTALI E, A DESTRA, "QLELLO DELLE FREQLENZE" 

PRINT "TEORICHE":I : 

GOSUB 3330 

CALL CLEAR 

IF N<-13 THEN 2010 

IF N/2-INT(N/2>THEN 2750 

FOR 1-0 TO N-3 STEP 2 

B<!/2>-<A<I)+A<I+ll>/2 

NEMT I 

ult-cn-d/2 

B(ULT)-A(N-l) 

INIZ-INT ( (13HJLT) /2>+2 
GOTO 2860 

FOR 1-0 TO N-2 9TEP 2 
D( I/2)-<AU)+A<I + l»/2 
NE XI 1 

IN1Z-1NT C (l5-<N/2-l>>/2>+2 

ULT-INT (N/2)-1 

GOTO 2860 

FOR 1-0 TO N-I 

B <I)-A <I) 

NE Mi 1 

INIZ-INT <(13-N)/2)+2 

ult-n-i 

U"MAX/20 
COL-133 
GOSUB 3260 
IF FT2-1 THEN 2910 
GOSUB 3440 
IF N>I3 TVCN 2990 
FOR 1-0 TO N-l 
V-flIN+I+DM 

MPl»EMP(-.3* ( (V-ftDIA) /S0N>~2> 

MPI -MPI*fl*DX*. 39894/80M 

BU1-HPI 

NEXT I 

GOTO 3210 

IF N/2-1 NT (N/2) T>«N 3020 

W-N-2 

BOTO 3030 

NN-N-1 

FOR 1-0 TO NN 
V-HIN+I*DX 

IF I /2< >INT11/2) TKEN 3070 
MPI-0 

PI-EXP<-.5« ( (V-rCDIA)/SOfl)^2> 

PI-P1*N»DX«.39894/SGN 
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3090 m-rFi«Pi 

3100 IF I/2-INT ( I/2>TPEN 3130 

3110 IND-INT1I/2) 

3120 B(INDI»HPI/2 
3130 PCXT I 

3190 IF N/2-INT(N/2»THEN 3190 
3130 IND-INTIN/2) 

3160 V-V*DX 

3170 PI»E*Pf-.5« ( IV-PtOIA) /S0TII~2) 

3100 B<INDI«Pl*rt*DX*.39B99/5QH 

3190 INIZ-1NK (13-N/21/2M-17 

3200 GOTO 3220 

3210 INII»INT(U3-N)/2) + 17 

3220 COL»193 

3230 GOSUB 3260 

3290 GOSUB 3330 

3230 GOTO 690 

3260 PEPI ««STAFFA» ** 

3270 CALL HCHARI22.2,199,30) 

3200 FOR 1»0 TO ULT 
3290 0-tNT(B<I)/U> 

3300 RE5T0-BII)-Q*U 

3310 OTT-lNT(A£ST0»e/U>«T 

3320 CALL VCHARI22-Q,INIZ*1,COL.Q) 

3330 IF OTT-0 THEN 3350 

3390 CALL HCHARI21-B,INIZ*I,COL-e+OTT> 

3350 NEXT I 

3360 RETURN 

3370 SCmP1A»0 

3380 FOR 1-0 TO N-l 

3390 SOnHA-SOmA-» <PIIN»I»DX) »A<I> 

3900 NEXT I 
3910 PIEDIA-S0TT1A/H 
3920 FF1-1 
3930 RETURN 

3990 IF FF1-1 THEN 3960 

3950 GOSUB 3370 

3960 S0HP1A-0 

3970 FOR 1-0 TO N-l 

39BO V»HIN»I»DX 

3990 SCAR2»(V-HEDIA) A 2 

3500 SOPTIA-SOmA+SCAR2*A 11 > 

3510 «XT I 

3320 SOPÌ-SOR (SOrtlA/PI) 

3530 FF2-1 
3590 RETURN 

3530 PRINT TAB<6>)‘- PREMI UN TOSTO -■ 
3560 CALL KEYIO.K.S) 

3570 IF S«0 THEN 3360 
3500 RETURN 
3390 CALL CLEAfi 
3600 END 


Alla riga 160 vengono dimensionale le variabili con indice che contengo¬ 
no i risultali sperimentali e teorici. 

Le istruzioni DATA (linee 170-240) contengono le stringhe di caratteri 
esadecimali alte a definire i caratteri grafici per creare gli istogrammi. 
Nel confronto si è voluto che questi avessero colori differenti, cosi i ca¬ 
ratteri sono stati inseriti contemporaneamente in due sottoinsiemi nume¬ 
rici distinti (linee 270-280). 

L’input dei dati occupa tutte le linee da 450 a 680. M (650) i il totale 
delle misure; la variabile MAX (670) indica la massima frequenza ed è 
importante per il dimensionamento degli istogrammi. 

Dopo il menù, alla riga 840, la variabile K rinvia alle varie sezioni del 
programma. 

Le funzioni TAB nell'istruzione 930 servono ad incolonnare i valori nu¬ 
merici a destra, mentre la condizione seguente (linea 940) interrompe la 
scrittura della tabella ogni dieci righe. Il programma riprende alla pres¬ 
sione di un tasto. 
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La stampa degli istogrammi viene effettuata dalla routine 3260; prima di 
richiamarla 4 tuttavia necessario specificare alcune variabili, la qual cosa 
viene fatta alle righe 1090-1150. INIZ è la colonna dello schermo dalla 
quale inizia il grafico; quando fotogramma 4 uno solo, esso è posto al 
centro mentre, quando si confrontano due istogrammi, ognuno viene 
centrato nella propria metà. U (linea 1130) 4 il valore unitario di un 
carattere-video (8 pixel); il grafico utilizza al massimo 20 righe, pertan¬ 
to, se la massima frequenza da rappresentare è 60, ogni riga vale 
U =60/20 = 3. 

ULT indica alla routine quando 4 finita la stampa. Infine, COL i una va¬ 
riabile associata al colore; se COL- 135, l'Ologramma sarà di colore blu, 
se C0L= 127, il colore sarà rosso. 

Il valore medio è calcolalo dalla routine 3370 richiamata dalla GOSUB 
di riga 1240. La stampa (linea 1290) viene fatta con un arrotondamento 
a tre cifre decimali. Il passaggio alla routine 3370 mette a uno il flag 
FF1; se un’altra sezione del programma richiede il valore della media, 
controllando FF1 si saprà se è già staio calcolalo, evitando cosi Inutili ri¬ 
petizioni. 

Alla riga 1400, SCAR indica lo scarto dalla media; esso 4 stampato con 
due cifre decimali ma, prima di arrotondarlo, si aggiungono 3 millesimi 
cosi Tenore sarà inferiore. 

Lo scarto quadratico medio è calcolato dalla routine 3440. Analogamen¬ 
te a quanto si è fatto in precedenza, il passaggio mette a uno il flag FF2. 
Lo scarto quadratico medio 4 contenuto nella variabile SOM; la sua 
stampa, a meno di un millesimo, si trova alla riga 1660. Il carattere 146, 
ivi presente, rappresenta la lettere greca p. solitamente usata in questo 
caso. 

Alle righe 1920-2230 viene calcolala la probabilità che una misura abbia 
a cadere in un dato intervallo indicato dalTuteme. 11 risultato si ottiene 
integrando la funzione della quale si 4 parlato nella premessa e che 4 
rappresentata nella figura 19. La funzione, nel programma. 4 definita al¬ 
la riga 2010 e l’integrazione, con il metodo di Simpson, occupa le righe 
seguenti fino alla 2160. 

Alla riga 2420, PI indica le probabilità teoriche associate ad ogni risulta¬ 
to sperimentale. PI si trova calcolando la stessa precedente funzione f(x) 
in corrispondenza dei risultati sperimentali e moltiplicando il valore otte¬ 
nuto per la larghezza DX delle colonnine che formano fotogramma. Le 
frequenze teoriche sono calcolate alla riga 2440. 

Il confronto tra gli istogrammi occupa le righe 2660-3240. 

La relativa complessità 4 dettata dal fatto che ogni singolo istogramma 
può essere formato anche da 30 colonne; nella maggior parte dei casi II 
TI 99/4A non potrebbe stampare i due grafici appaiati. Pertanto, se le 
colonne di ogni istogramma sono inferiori a 13 non sussistono problemi, 
ma se sono più di 15 viene attivato un algoritmo per sommare le fre- 
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quenzc relative a due a due in modo da ridune alla metà il numero delle 
colonne dei due grafici e permettere quindi la stampa contemporanea. 
La memoria richiesta è di 8,7 Kbyte. 


La diti degli esagoni 

La città degli esagoni altro non è che la versione computerizzata della 
tavola di Galton o binostaio. Una disposizione piramidale di esagoni ge 
nera una serie di corridoi lungo i quali scendono delle palline da un’uni¬ 
ca via di accesso posta in alto. Ad ogni esagono la pallina ha 1/2 di pro¬ 
babilità di andare a destra ed 1/2 di andare a sinistra. Le palline vengo¬ 
no raccolte e contate alle uscite. 



Fig. 20 


É possibile scegliere da un minimo di due uscite ad un massimo di 4. 
Due uscite si ottengono ovviamente con un solo esagono ed i risultati so¬ 
no analoghi a quelli che ti ottengono con lesta e croce relativamente al 
lancio di una moneta, le palline, cioi, stanno nel rapporto 1:1. Con tre 
vie di uscita le distribuzioni di probabilità sono 1/4, i/2, 1/4, ovvero le 
palline raccolte stanno ne) rapporto di 1:2:1. Il risultato t assimilabile al 
lancio contemporaneo di due monete. Infine, con quattro vie di uscita, 
ogni pallina può scendere attraverso otto diversi percorsi e la distribuzio¬ 
ne di probabilità i 1/8, 3/8, 3/8, 1/8; lanciando un gran numero di pal¬ 
line il loro numero alle uscite tenderà al rapporto 1:3:3:1. I numeri (1), 
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(1,1), (1,2,1), (1,3,3,1), ecc. sono i coefficienti binomiali altrimenti noti 
per costruire il triangolo di Tanaglia: 


1 

I 1 

1 2 1 
13 3 1 


La distribuzione di probabilità appena esaminata viene detta binotniale 
(o bernoulliana). 

0 programma è semplicemente una simulazione di ciò che i ottenibile 
con un apparecchio reale ed in quanto tale ha il pregio di essere «sente 
da accidenti vari e da eventuali difetti di fabbricazione. L'unica difficol¬ 
tà nella tecnica di programmazione, legata per altro ad un’esigenza pu¬ 
ramente estetica, consiste nel creare il corretto movimento della pallina 
aU'interno dei corridoi. Per questo motivo si è adottato l'Extended Ba¬ 
sic, che, come è noto, è provvisto soprattutto di istruzioni CALL aggiun¬ 
tive, rivolle alla grafica. 

Lo sprite che rappresenta la pallina è fatto scendere con l’istruzione 
CALL M0T10N, la sua posizione viene continuamente controllata con 
una CALL POSITION. Quando il numero di riga Y indica che lo sprite i 
in prossimità di un esagono, una funzione RND associata ad un’altra 
CALL MOTION, fa deviare la pallina a destra o a sinistra, diagonalmen¬ 
te, e dopo un altro valore dì Y viene ripristinalo il movimento lungo la 
verticale. Quando il percorso t piti lungo, le istruzioni non garantiscono 
più il corretto movimento dello sprite ed i necessario introdurre qualche 
istruzione CALL LOCATE per correggere la posizione. Inoltre i da lena 
presente che mentre il Basic valuta la posizione e passa al successivo co¬ 
mando per modificare le componenti della velocità dello sprite, questo 
continua nel suo movimento tanto da far giungere in ritardo la successi¬ 
va istruzione. La cosa è tanto più evidente quanto maggiore i la veloci¬ 
tà. D programmatore deve pertanto comportarsi come uno sciatore im¬ 
pegnalo in uno slalom, il quale anticipa le pone. Se, supponiamo, la 
pallina deve deviare alla riga 68 (in pixel), l’istruzione dovrà essere IF 
Y<52... L’analogia con lo sciatore 4 evidente! 


100 REM LA CITTA’ 

HO RE ri DEGLI ESAGONI 

120 REIT •«••♦»»«•»**«**«*• 

130 REM dii SERGIO BOA SANI 
1*0 REM s/crratone: 

150 REM EMTENDED BASIC 
160 REM ••*♦*«*•••#♦#*•*•# 

170 CALL CHARC12B.‘OOO00000030F3FFF"> 
100 CALL CHAR<129 t -030F3FFFFFFFFFFF"> 
190 CALL CHAR( 130, “COFOFCFFFFFFFFFF-) 
200 CALL CHARU31, "OOOOOOOOCOFOFCFF") 
210 CALL CHAR(132,"FF3F0F03 rt ) 

220 CALL CHAR (133, TFFFFFFFFF3F0F03' 1 1 
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LnHniua. rrrurvw i 

250 CALL CHAR (136, "FFFFFFFFFFFFFFF F" ) n CALL CHAR<137,"O"> 

260 CALL CHAR<140, "07lF3F7F7FFFFFFFFF7F7F3FlF07000080£OFOFBFe 
270 CALL COLOR <13,9 .1) :; CPL.L COLORI 14, 9. 12) 


230 CALL CHAR< 134, "FFFFFFFFFFFCFOCO" 

240 CALL CHARM3S, "FFFCFOC - ) 

-CALL-- 

CALL 

270 CALL WAiVUlJiT.INi LM.L. LUUjm 
-££ yFF fFT . F FFfTFFFm ) 
COFOFCFFFFFFFFFF" ) 

_ _ _. OOOOOOOOCOFOFCFF“) 

310 CALL CHAR<123,"00000000030F3FFF") 

320 CALL CHAR<124,-030F3FFFFFFFFFFF") 

330 CALL COLOR 112,7,12) 

340 CALL CLEAR 

350 RI*5 it CO-15 ia SOSUB 2330 

360 CALL HCHAfi(6,0.136.6> r : CALL HCHAR17.0,136.6) 

370 CALL tCHAR<6,20.136.6)? t CALL HCHAR<7,20,136,6) 
300 CALL VCHARI 8.8.136. 10) ss C«LL VC1W<8,25, 136, 10) 
390 CALL hCHARlIH,6,13&.IB) 

400 DISPLAY AT <11,11)SI2EI9)»"LA CITTA’- 
410 DIBPLAY ATI13, 13)SIZCC3)«‘'DEGLI- 
420 DISPLAY AT<15! 12) SIZEC7)j “ESAGONI- 
430 FOR T-l TD 50Ò xt NEXT T 
440 CALL CLEAR 

450 PRINT "VUOI LE ^lEGAZIGNJ? (S/N) • 


■ CFCFCFCF0F0FOEO8 " > 


460 CALL KEYC0.K.S) 
470 IF 3*0 TFEN 460 


400 1F K—03 T(CN 300 
490 IF K*70 ThCN 610 ELBE 460 
?0 ° 


310 


"UNA PALLINA VIE 


, FATTA SCENDERE ATTRAVERSO DEGLI ESAGO-" 

520 PRINT -NI. AD OGNI DIVIO HA IL 507 DI PROBABILITÀ' DI ANDARE A" 

330 PRINT “DESTRA O A SINISTRA. *: - "IL COMPUTER SIMULA GLI EVEN-- 
340 PRINT -TI C REGISTRA 1 RI9LA-TATI. *1 ** - 

330 PRINT “GLI E SE BOVI POSSONO ESSERE" x. “PIU ' O MENO Nl«ROSI| IL LO" 

360 PRINT -RO NUJdTO E’ DETERMINATO DALLA SCELTA DELLE VIE DI USCI-* 

370 PRINT ... “ - 

380 PRINT TAB (6) I **— PREMI UN TASTO -• 

390 CALL KEY(O.K.S) 

600 IF 9-0 TFEN 390 
610 CALL CLEAR 

620 PRINT "QUANTE USCITE VUOI? <2-3-4)" 

630 INPUT "U - "xU 
640 PRINT 

650 IF IK2 OR U>4 T)CN 660 ELSE 670 

660 PRINT "ERRORE? RIPROVA"i" " ts GOTO 630 

670 PRINT "QUANTE PALLINE VUOI7“ 

600 INPUT "N - -IN 
690 PRINT 

700 IF N>lOOO TFCN PRINT -ESAGERATO? UN PO* ICNO-i” " :: BOTO 600 
710 CALL COLOR(13,9,12) 

720 GOSUB 1950 

730 ON li—1 BOTO 740.1030,1450 

740 DATA 1,120,10,il,121,1,12,122,1,13,137,2,13,123,1,16,124,1 
750 DATA 17,121,1,10,122,1,19, 137,2,21,123,1,22,124,1,23,120,10 
760 RE6 TORE 740 

770 FOR 1-1 TO 12 «X READ C,N,V xa CALL MCHAR<0,C.W,V)sc NEXT I 

700 DATA 1.120,12,13,121,1,14, 124,1.15,120.4,19.121.1,20.124,1,21, 120, 12 

790 FOR 1*1 TO 7 la READ C,W, V x s CALL HCHArW, t,M,V) x s fexT I 

BOO CALL HCHARl10,1^120.321 

010 DATA 1.11.16,2,22,11 

020 FOR J-l TÒ 3 si RESTORE 010 

030 FOR 1-1 TO 3 si READ C,V ac CALL HO<AR< IO«*J,C, 120, V) : s NEIT I 
040 NEXT J 

030 CALL HCHARC14,1,120,32) 

060 RANDOniZE 

070 FOR CNT*1 TO N 

B0O CALL SPR1TEC61,140,5,1,122) 

890 CALL MAGNIFY(3> 

900 CALL M0TI0N<41.l3,O) 

910 CALL PO9ITI0N(*l,Y,X) 

920 IF Y<5 THEN 910 

930 IF RND<.5 THEN VEL— 32 ELSE VEL-32 
940 CALL l«TION(#l.15,VEL) 

950 CALL PDSIT!0N(*1,Y,X> 

960 IF Y<20 THEN 950 ELSE CALL MOTION IDI, 25,0) 


970 CALL PQSITION(61, Y, X) 

980 IF Y<49 T>«N 970 ELSE CALL DELSPRITE(61) 


990 IF X<128 THEN A<l)-A(l>+1 t: GOTO 1010 
1000 A(2)-A<2)+1 it DIBPLAY AT ( 12, iò) BUE (4) BEEPcUSINB "••4“ 
1010 DISPLAY AT < 12,10) BEEP 3IZE44) : US INO W:A(I) 

1020 GOSUB 1090 

1030 NEXT CNT 

1040 BOTO 1920 

1050 CALL HCHARl13,1,120.7) 

1060 R-13 xt FOR C-7 TO W STEP 6 as 0O9UB 2200 ts NEXT C 
1070 CALL HCHARI13,26.120,7) 

1080 CALL HCHARU4, 1,120.M> 

1090 FOR 1-1 TO 3 i« CALL HOWR(I4,4+6*1,1211 


: AI2) t a BOTO 1020 
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CO-9Q ELSE VEL-34 


_ATE<91,Y,CO) 

VEL-39 


CO-146 


1) 


1100 CALL tCHAft(|4,5+6»I. 124»e? f*.XT I 
1110 DATA 1.6. 13.2, 19,2, Ì5.0 
M20 for i-ì to 5 ii reStgAe 1110 

1130 FOR J-l TO 4 :• READ C,V ; : CALL HCHARIIS+I.C,120,V) 

1140 hCXT J i: NEXT 1 
USO CALI HCMAA <19,1,120, 32> 

1160 RANDQHI ZE 
1170 FOR CNT-1 TO N 

UBO CALL 3PRITE(01.140,3,1,122,13,0) 

1140 CALL NA£S9IFY(3) 

1200 CALL PGSITION (91, Y, I ) 

1210 IF y<6 THEN 1200 
1220 IF RNCK.3 T*N VEL—34 
1230 CALL nOTIQNCtl. 13,VELI 
1240 CALL POSITION(*1.Y,)() 

1230 IF Y< 19 THEN 124Ò 
1260 CALL FOT ION (91.20,0) 

1770 CALL POSlTlONCli.V.X» 

1290 IF T<44 THEN 1270 ÉLSE CALL LOCAT 
1290 IF RNIX.5 TICN VEL—39 ” 

1300 CALL FDTIONfOL. 15,VÉL> 

1310 CALL P0SITI0N<4i.Y,X> 

1320 IF Y<58 TVCN 131Ò ELSE CALL HOTION<41,30,0) 

1330 CALL POSITIONItl.Y.X) 

1340 IF Y<88 TI«N 133Ò ELSE CALL DEL9PRITE <41 
1330 IF X>100 THEN 1300 

1360 A ( 1 > *A < 1 ) ♦ 1 ce DISPLAY AT U7, 7>SI ZE<4) I 
1370 GOTO 1420 
1380 IF X>150 THEN 1410 

1390 A<2)-A<2)>1 xs DISPLAY ATI17,13) SI ZE (4) BEEP: USINO -999*:A<2) 
1400 60TC 1420 

1410 A(3)-A<3)*1 «: DISPLAY ATI17,19)SI2E(4)DEEP:U91NG -■■9' , :A(3) 
1420 GOSUB 1090 
1430 fC¥T CNT 
1440 fiOTO 1920 

1430 CALL HCKAR <10,1,120,4) 

1460 R-10 i< FOR C-4 TO 22 STEP 6 12 GOSUB 22B0 n htXT C 
1470 CALL HCKARI 16,29.120,36) 

1480 FOR 1-1 TO 4 li CALL* HOtARl 19,6*1 + 1, 1211 
U90 CALL HCHARll9,6#I>2.124)s: NEXT I 
1500 DATA 1.3,10,2.16,2,^2,2,20.5 
1510 FOR 1-1 TO 3 :s RESTORE 1300 

1320 FOR J-l TO 3 SI READ C,V :e CALL HCHAR C19+I,C,120,V) 

1530 NEXT J ac MEMT 1 

ino 

1560 FOR CNT-1 TO N 

1370 CALL SPRITEI41, 140,3, 1, 122, 15,0) 

1300 CALL HAGNlFYtsl 

1390 CALL POSI TIONI91, Y, M> 

1600 IF Y<5 T>«N 1590 

1610 IF RND<• 3 THEN VEL—32 aa C0-9S ELSE VEL-32 ci CO-146 
1620 CALL HOTION(02.15,VEL) 

1630 CALL P0SITI0N(4l.Y,X) 

1640 IF Y< 17 THEN 163Ò ÉLSE CALL LUTATE(91 ,Y,CO) 

1650 CALL HOTION Iti .25.0) 

1660 CALL PO9ITI0NI91 ,Y,X) 

1670 IF Y<44 THEN 166Ò 

1600 IF RND< • 5 T»«N VEL—38 M CD-CO-24 s: GOTO 1700 
1690 VEL-30 tt CO-CO+24 
1700 CALL HOTION(91.15,VEL) 

1710 COLL POSITIOH(91 t Y,X) 

1720 IF Y<55 TVEN 171Ò 


US1M3 *999"cA(1) 


1730 CALL LOCATE (#1. Y,CO> c t 
1740 D¥_L POSITI®! (91 .Y, X) 
1750 IF Y<B2T>CN 1740 
1760 IF RNDC.5 THEN VEL— 
1770 VEL-30 ex CO-CO24 


CALL HOTION(#1,35,0) 


38 ri CO-CO-24 ac GOTO 1780 

.....H-24 

1760 CALL HOTION<91.15,VEL) 

1790 CALL POSITIGNI*!. Y, X) 

1900 IF Y<90 TVEN 1790 

1610 CALL LOCATE (91. Y, CO) a: CALL H0T1GNI91, *0,0) 

1820 CALL POSITHMlèl. Y.X) 

1630 IF Y<136 TICN 1820 ELSE Cfii-L. DEL9PRITE(91 ) 

1940 CO- (00-2) /48 :i A (CO) -A (CO) + 1 a a P-CO*6-2 
1850 DI9PLAY AT (21 ,P> 91 ZE (4 ) BEEPi USINO -9#9“aA(C0) 

1860 GOSUB 1890 
1870 rCXT CNT 
ISSO GOTO 1920 

1090 DISPLAY AT(3,22) SI ZE <6> i "TOTALE" 

1900 DISPLAY AT(S,22)9IZE(6) SUSINO > 96990 >a aCNT 
1910 RETURN 

1920 DISPLAY AT(24.6)BEEP SIZEllB)! 1 *- PREHI UN TASTO -■ 
1930 CALL K6Y (O, K.S) 

1940 IF S-0 THEN 1930 ELSE 2420 

1950 CALL CLEAR tt CfiàA. HCHARd, 1,120,32) 
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1960 CALL HOtAft ( 1, 16, 137. 2> 
1970 CALL HCHAA12,1.137,192) 


19BO DATA 2,1,134,13,2,14,134,1,2,15,133.1,2.19,132,1.: 
20W RE9T0RÉ 1 ilio* l2,3 ’ ‘ 3 ’ ‘ 33 ’ ’ ' 3 ' 2 °' ,32 *‘I 3 * 21 ’ ,36 * 


19,132,1,2,19,133,1,2,20,136,13 


2010 FOR I-l T0 10 :: READ R, C,U,V :: CALL HCHAR(R,C,W,V>:: NEXT I 
2020 FOR 1-4 TO 6 SI CALL HCHAR (1.1 ,136.12>: I CALL mChAR(1,21,136,12)I : NEXT | 
2030 DATA 1.136,10,11,134,1,12,135,1,21,132,1,22,133,1,23,136,10 
2040 FOR 1-1 TO 6 


2030 READ C.U.V :j CALL HCHAR (7, C.U.V) ! ! f«XT I 
2060 RI—4 i: CO-IS ■; OOSUB 233Ò 
2070 IF U-2 THEN 2270 


2080 CALL HCHAR(B,1.137,160) 

2090 DATA l.136,9,l6,133,1,23,132,1.24,136,9 

2100 FOR 1-1 TO 4 ri READ C.W.V :i CALL HCHAR (B.C, M, V> : : NEXT I 
2110 FOR 1-9 TO 11 !S CALL HCHAR CI , I, 136, 9) l l CALL HCHARU. 24, 136,91 ! : l«XT 1 
2120 DATA 1.136,7,8.134,1,9.133,1.24,132,1.23.133.1,26,136,7 
2130 FOR I-! TO 6 :: NtAD C.M.V lì cAlL HCHAR<12,C,U.vl: : 6CXT 1 
|'40 RI-9 :: CO-12 n GOSUB 2Ì30 


ISO RI-9 II CO-IB II BOSUB 2330 
2160 IF U-3 THEN 2270 
2170 CALL HCHAR<13,1,137,140) 

2180 DATA 1,136,6,7,135.1,26,132,1,27,136,6 

2190 FOR 1-1 TO 4 :: READ C.M.V i : CALl h£hAR< 13,C.M.V): : «XT I 
2200 FOR 1-14 TO 16 (S CALL HtHARM,I,136,61 
2210 CALL HCHAR11,27,136.61:: NEXT 1 

2220 DATA 1,136,4,3,134.1,6,133,1,27.132,1,28.133,1,29,136,4 

2230 FOR 1-1 TO 6 :! ReAd CÌM.V :: CALL HCHAR<17,C,M,vi : : fexT I 

2240 RI-14 :: CO-9 n BOSUB 2330 

2230 RI—14 li CO—13 il 905U8 2330 

2260 RI-14 il C0-2I il BOSUB 2330 

2270 RETURN 

22SO DATA 121,122,137,137,123,124 
2290 RESTORE 2200 

2300 FOR 1-1 TO 6 READ U i: CALL HCHAR (A, C-I ,M> ■, l«XT I 

2310 RETURN 

2320 REn •»« ESAGONO 

2330 CALL HCHAR(RI.CO,1281 

2340 CALL HCHAR(RI,CO-1,129) 

2350 CALL HCHAR1RI,CO-2,130) 

2360 CALL HCHAR(RI,CO-3,131> 

2370 CALL HCHAR (R I-l ,CO, 136, 4) 

2380 CALL HCHAR(RI-2,CO,136,4) 

2390 RI-RI+3 

2400 FOR 1-0 TO 3 :: CALL HCHAR (RI, CO-1,132-11 : : XCXT I 
2410 RETURN 
2420 CALL CLEAR 

2430 PR1NT "VUOI RiCOHINCIAR£9 (S/N)":" “»* “ 

2440 CALL KEY<0,K,S> 

2450 IF S-0 THEN 2440 

2460 IF K-B3 ThEN 24B0 ,< 

2470 IF K-7B TTCN 2490 ELSE 2440 4* 

2480 FOR I-l TO 4 : : Atll-0 l! IEXT 1 si DOTO 610 Jaf 

2490 CALL CLEAR :: END 


11 programma si apre eoo la definizione dd caratteri grafici; la lunga 
strìnga di riga 260 definisce lo sprìte con la forma di un cerchietto colo¬ 
ralo, esso rappresemeli la pallina che scende ira gli esagoni. Le istruzio¬ 
ni 360 richiamano rouiine per disegnare un esagono dopo aver specifica¬ 
to le coordinate. Questa prima immagine appartiene al titolo. 1 dati in 
input sono: U, il numero delle vie di usata e N, il numero delle palline. 
Si i stabilito che N non sa maggiore di 1000 ma nulla vieta di aumenta¬ 
re il limile con nn« lieve modifica del programma. 

L'istruzione 730 provoca un salto condizionato a tre sezioni del pro¬ 
gramma ognuna con un diverso numero di esagoni. Data l'analoga strut¬ 
tura delle parti bastai esaminarne una a titolo di esempio. Scegliamo 
quella che va da riga 1060 a riga 1440. In essa tre esagoni sono disposti 
a triangolo (due alla base e uno al vertice); tre sono le vie di usata. 
Le istruzioni 1060-1150 creano lo sfondo o meglio lo completano, in 
quanto gran pane di questo viene fatta con la GOSUB di riga 720. 
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L’istruzione FOR di riga 1170 fa ripetere rimerò rido unte volte quante 
sono le palline richieste. 

Ogni pallina appare nella pane alta dello schermo con la CALI. SPRITE 
di riga USO ed inizia subito la sua discesa con una velocità di 1J unità; 
come è noto le componenti della velocità possono variare in un interval¬ 
lo che va da -127 a + 127. Con l’istruzione 1200 si indaga subito sulla 
sua posizione, in particolare sul numero di riga espresso in pixel (Y). Se 
Y è inferiore a 6 si toma a chiedere la posizione altrimenti significa che 
la pallina è in prossimità del primo esagono e deve essere deviata lateral¬ 
mente. 

La deviazione è controllata da una riunione RND (riga 1220), precisa¬ 
mente se viene generato casualmente un numero inferiore a O.S la pallina 
andrà a sinistra (componente orizzontale della velocità uguale a -34) al¬ 
trimenti verrà deviata a destra (velocità = 34). Il valore 34 è stato scelto 
perchè, sommato ad una componente verticale di 1$ unità, il moto risul¬ 
tante avviene lungo una direzione obliqua parallela ad un lato dell’esa¬ 
gono. 

Sempre a riga 1220 si specifica anche l’esatto numero di colonna, in pi¬ 
xel, corrispondente al corridoio verticale lungo il quale dovrà scendere la 
pallina dopo aver percorso il tratto obliquo. Infatti non è possibile con¬ 
trollare esattamente il percorso della pallina solo con le istruzioni CALL 
POSITION e CALL MOTION ma è necessario ripristinare periodicamente 
l’esatta posizione con un'istruzione CALL LOCATE. É quanto viene fal¬ 
lo a riga 1280 se la pallina è scesa sotto quota 44. 

Le righe 1290-1300 provocano l'ultima deviazione mentre, sotto quota 
58, riprende il moto verticale che si arresta al livello 88 dove la pallina 
scompare. 

In base al numero di colonna X, restituito dall’ultima CALL POSITION, 
si deduce da quale via è uscita la pallina e si può incrementare il conta¬ 
tore corrispondente, AHI, A(2) oppure A13) (righe 1350-1410). La GO- 
SUB di linea 1420 richiama il brevissimo sottoprogramma che incremen¬ 
ta il contatore generale CNT. 

Il ciclo riprende. 
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Le forze 

Poiché le forze sono grandezze vettoriali, il programma è preceduto da 
alcuni elementi di calcolo vettoriale (sezioni 1 e 2). 

La somma di due vettori i un vettore di intensità 

V = s/V}+ Vj+2V l V> costì 

dove V, e Vi sono le mtensità dei valori da sommare e 6 è l'angolo 
compreso tra i vettori V, e Vi. 

L'angolo a formato dal vettore somma Ve V, si ricava con la formula 

V Vi 
sin d sin a 

dalla quale si ottiene: sina = sin 9 V t /V 

In Basic non esiste la funzione aresin che restituisce l’ampiezza dell’an¬ 
golo, pertanto essa va definita come segue: ARCSIN = ATNOt/SQR 11- 
X*X)I, dove X è il valore di sina. 

Gli argomenti delle funzioni trigonomoriche vanno espressi in radianti; 
per ottenere il valore in radianti si moltiplicano i gradi per t/1 80 « 
0.0174332925... e per convertire in gradi il corrispondente valore in ra¬ 
dianti, questo va moltiplicato per 180/t * 57.295779513... 

Un vettore può essere scomposto in due componenti ortogonali: V = 
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ù.V, + u,V y , dove 5, e u, sono vettori unitari o versori, e V, - V cosai e 
V f = V sin a. 

Il programma inoltre esegue le seguenti operazioni: composizione di for¬ 
ze concorrenti, composizione di forze parallele, momento di una forza, 
equilibrio di un corpo rigido. 

Sono forze concorrenti quelle applicale ad un medesimo punto. Vengo¬ 
no accettate fino ad un massimo di dieci forze, quindi non è necessario 
il dimensionamento delle matrici (o variabili con indice). Ogni forza vie¬ 
ne scomposta nelle componenti ortogonali parallele agli assi cartesiani. 
Dette R , ed R r le componenti della risultante, risulta: 

R, - E F a e R, = E F„ 

11 modulo della forza risultante si trova applicando il teorema di Pitago¬ 
ra, R «* •JRÌ + Rj. L'angolo, in radianti, formalo dalla forza risultante 
con l'asse delle x è dato dalla funzione ATN (arcotangente) il cui argo¬ 
mento è Ry/R, = sena/cosa = tga. Prima di far calcolare al compu¬ 
ter Ry/R t , bisogna accertarsi che R. sia diverso da zero altrimenti com¬ 
pare un messaggio di errore. Naturalmente questa accortezza spetta al 
programmatore il quale deve prevedere anche questi risultali particolari 
ed inserire le opportune istruzioni. 

Per la somma di forze parallele (anche qui lino ad un massimo di dieci) 
valgono le seguenti relazioni: 

R « E, Fi e t «= Ti 

cioè, la risultante (R) ha un modulo uguale alla somma di tutte le inten¬ 
sità delle forze ed il momento della risultante (r) è uguale alla somma di 
tutti i momenti. Se le forze sono applicate tutte ad una stessa retta, il 
punto di applicazione della risultante è: 


E Fi *t 

X E F, 

dove Mi sono le distanze dei punti di applicazione delle forze i-esime. 
Non è importante dove viene posta l’origine rispetto alla quale vengono 
calcolale queste distanze, tuttavia, le distanze poste alla destra dell’origi¬ 
ne vanno prese col segno più, mentre quelle alla sinistra dell'origine van¬ 
no prese col segno meno. Parimenti si può convenire che le intensità del¬ 
le forze abbiano senso positivo se le forze sono rivolte verso l’alto e se¬ 
gno negativo se sono rivolte verso il basso. 

Quando una forza viene applicata ad un corpo che può ruotare attorno 
ad un punto O, l'esperienza stessa ci dice che essa è tanto più efficace 
quanto maggiore è la distanza tra la direzione della forza ed il punto O, 
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ovvero quanto maggiore è U braccio della forza. Viene definito marna¬ 
to di una forza il prodono della forza per il suo braccio. Per semplicità 
non si è tenuto conto del carattere vettoriale del momento. 

Detta r la distanza del punto di applicazione della forza dal punto O, ri¬ 
sulta: b**r sin 9 e r = fr sinfl, dove 6 è l’angolo formato dalle direzioni 
di F ed r. 

Ogni sezione del programma i dotata di illustrazioni che rendono più 
chiare le relazioni tra i vari elementi ai quali ci si riferisce e rendono più 
agevole l’input dei dati all'uiente. 

L’ultima pane tratta l’equilibrio di un colpo rigido. 

In.ogni situazione valgono le seguati regole: (1) la somma di tutte le 
forze deve essere uguale a zero; (2) la somma dei montati di tutte le 
forze deve ssere uguale a zero. 

Non i possibile creare un programma in grado di risolvere le innumere¬ 
voli situazioni che riattano in quella branca della fisica chiamata stati¬ 
ca. Un solo problema viene trattato in particolare: l’equilibrio di una 
trave che appoggia su due punti A e B. Specificando le forze agenti sulla 
trave ed i loro punti di applicazione, vengono calcolate le reazioni sulla 
trave da pane dei vincoli A e B. 11 metodo consiste nell'uguagliare a ze¬ 
ro la somma di tutti i montati delle forze rispetto al punto A ottenendo 
un’equazione di primo grado dove l’unica incognita i la forza nel punto 
B. Uguagliando a zero la somma di tutte le forte e sostituendo alla for¬ 
za nel punto B il valore appena calcolato, si ottiene una nuova equazio¬ 
ne di primo grado ad una incognita la cui soluzione è la forza nel punto 
A. 

Prima di passare ad alarne applicazioni esaminiamo br e v a nente 0 Iòta- 
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100 REM LE FORZE 

Ito REM •»•*■*•**•••**•«•« 

120 REM DI: SERGIO BORSARI 
120 REM VERSIONE: TI BASIC 
1«0 CALL CLEAR 
ISO CALL CHAR(12B.-F-) 
lé>0 CALL COLOR (13,3, 5) 

170 PRINT TABtl 1 ) ; "LE FORZE--.:: :::::::: : 
100 CALL HCHAR(10,11,128,12) 

190 CALL VCHARtlI,11,126,31 
200 CALL VCHAR<I1,22,128,3) 

210 CALL HCHAR(14,11,128.12) 

220 CALL CHAR(13A,"Olo2OlO0132C7OFF") 

230 CALL CHAR(137,"070E32C1010101FF") 

240 CALL CMAR(138,"BO404O2O2O2O2OFF" ) 

250 CALL CHAR(139,"OOOOOOOOOOOOOOFF-> 

2A0 CALL CHAR(140,"00000000000402FF") 

270 CALL CHAR(141,"0204-) 

280 CALL CHAR(142,"0102040B10204080”> 

290 CALL CHAR(143,-00000000030C20CO-1 
300 CALL CHAR (144,*' 030C30C" ) 

310 CALL CHAR(14S,"OF03030910204080-'I 
320 CALL CHAR(144,“0F0E34CSlO2O4O8O") 

330 CALL CHAR(147,'-0102040810304884-) 

340 CALL CHAR(148,"O1O2O4O01O2O4OFF-) 

350 CALL CHAR(149,"010I010I01010101-) 

3A0 CALL CHAR(I50,"0103050101010101“) 
370 CALL CHAR(151, “00804") 

300 CALL CHAR(152,"B08080B080809080") 

390 CALL CHAR<133,"003048483") 

400 CALL CHAR054, "OFOE34C - ) 
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440 CALL CHAR C 138, "O8O0OBOBOBOBOBO8" ) 

430 CALL CHARUS9, "O8OBO8O8O02AlCOe") 

460 CALL CHAR <123»"0103070F LF3F7FFF") 

470 CALL CHAR<124,"OO8OCOEOFOF0FCFE"> 

460 CALL CLEAR 

470 PRINT "PER LA TUA SCELTA PREMI"! "IL NUMERO CORRISPONDENTE"! I 
500 PRINT -I. BOmA DI DUE VETTORI "li 
310 PRlNT "2. COMPONENTI DI UN VETTORE"lI 


CONCORRENTI~i i 
PARALLELE" i c 

RIGIDO"x ■ 


320 PRINT "3. COMPOSIZIOKC DI FORZE"i 
330 PRINT "4. COMPOSI Z IONE DI FORZE"l 
340 PRINT "5. MOMENTO DI UNA FORZA"!x 
530 PRINT -A, EQUILIBRIO DI UN CORPO" 

360 PRINT "7. FINE."vi 
370 CALL KEY(O.K.S) 

500 IF G-0 THEN 370 

600 ?F K (K<I) ♦<k>7)T«N 370 

610 ON K GOTO 620,1270,1660.2390,2940,3340,4010 
620 CALL CLEAR 

630 PRINT "SOMMA DI DUE VETTORI"xx 

640 Q09UB 3900 

630 PRINT "V-VI4V2"!II il I il 

660 CALL HCHAR<22,li,139.3) 

670 CALL HCHAR<22,I6,1401 
600 CALL KCHAR(23,16, 141) 

690 CALL HCHAR(22,II,146) 

700 FOR I-l TO 4 

710 CALL HCHAR(22-I,11*1,142) 

720 NEXT I 

ìì°o 

730 CALL MCMAR(23—I, 16-+I, 142) 

760 NEXT I 

770 CALL HCMARt16,17,139.6) 

780 CALL HCHAR122,11,136) 

790 CALL HCHAR<21,12,147) 

BOO CALL HCHAft<22,12, 137) 

010 FOR 1-1 TO 4 

620 CALL HCNARI22-I,11+2+1,143) 

630 CALL HCHAR(22-I,12+2*1,144) 

640 NEXT I 

830 CALL HCHAftl17,21,143> 

s$8 att minimi 

pò g^c^l'àsft 06 ’ 23 ' iB * 13,86, 18, 14,30, 10, 1B,86 

900 FOR 1-1 TO 3 

910 READ RIGA .COLO. NU* 

920 CALL HCHAR (RIGA, COLO, NLPC) 

930 NEXT I 
940 PRINT 

930 PRINT "SCRIVI I MODULI DEI VETTORI"!I 
960 FOR 1-1 TO 2 

970 PRINT TAB<6>l"V"lBTR6UM- - "1 
960 INPUT VII) 

990 NEXT I 
1000 PRINT 

1010 PRINT "SCRIVI L'ANGOLO FORMATO DAI"l"DUE VETTORI" 
1020 INPUT "(GRADI) ":A 
1030 PRINT 

1040 A-A*.0174332923 
1030 R-V<1)«VU)(V<2)>V(2) 

1060 R-R+2»V(|)»V<2>«C09<A) 

1070 R-SOR(R) 

1060 X-BINCA)#V(2>/R 

1090 ARCSIN-ATN<X/SQR(l-X»X>) 

1100 A-ARCSIN*37.2957796 
1110 QRADI-INT(A) 

1120 A"(A-INT(A))*60 
1130 PRIMI-INT(A) 

1140 A»(A-INT(A))160 
1130 SECONDI"INT(A) 

1160 PRINT 

1170 PRINT "IL M0DIA.0 DEL VETTORE SOMMA"! "E'i » 

USO PRINT TAB(0)l"V -"I INT ( IOOO*R) / lOOOx I 
1190 PRINT “L * ANGOLO FORMATO DA V E Vl"«"E , i" 

1200 PRINT TAB (0) I 

1210 PRINT TAB(0)1"A « "|8TR*(GRADI)|CHR4(133)I 
1220 IF PRIMI-0 THEN 124Ò 

1230 PRINT 8TR»(PRIMI)|C)«t(39)|STR*(9£C0NDI)|CHR«<34) 

1240 PRINT sit 

1230 GQSUB 3980 

1260 BOTO 4010 

1270 CALL CLEAR 














































































































F-SQR(FX#FX*FY»FY1 
F-INT( 100* <F*.0031 >/100 
IF FX-0 THEN 2200 
X-FY/FK 

K-INT<10«ATN<X»♦37.29370 )/\0 

GOTO 2210 

X»90 

FX-INT<!00*(FX*.00311/100 
FY-INT(100MFY*.003> 1/100 

PRINT "LE COTff>ONENTI DELLA FORZA"I“RISULTANTE SONO:":: 

PRIMI "FX «-IFX 
PRINT ”FY -”IFY|| 

PRINT "IL MODULO DELLA FORZA RISUL-'*! "TANTE E"i"si 
PRINT "F ■"IFit 

PRINT "L'ANGOLO FORMATO CON L'ASSE”:"DELLE X E"t"U 
IF FXOO THEN 2390 
IF FY<0 THEN 2320 
DOTO 2360 
X—X 

BOTO 2360 

IF FX>-0 THEN 2360 
X-K+1B0 

PRINT "~"i"A - "f3TR*(X>ICHR4(153)III 
GOSUB 3900 
GOTO 4010 
CALL CLEAR 

PRINT "COMPOSI!IONE - *“DI FORZE PARALLELE"i■ 

GOSUB 3900 

PRINT iiiiiiiiin 

CALL HCHARI10,12,139.111 

CALL HCHAR(10, 23,140) 

CALL HCHAR(19, 23, 141) 

CALI. VCHAftC14,11,149,51 
CALL HCHAR(13,11,1901 
CALL KCKARI13, 12,1311 
CALL VCHARC19,13,196.3) 

CALL HCHAR(22,13, 1391 
CALL VCHAR413,16,149.3) 

CALL HCHAR(10?16.137) 

CALL HCHAR414,16,190) 

CALL HCHAR(14,17,1SI) 

CALL VCHARt19,19,190,21 
CALL HCHAR(21,19,139; 

DATA 19,24,B8,13,10,09.19,11.79,21,14,70,21,13,49 

restose’£ 3*0°’ l5 »»>t »! 20,70:20:21:31* 

FOR I-i TO 9 
READ RIGA.COLO.NUME 
CALL HCHAR(RIGA,COLO,NUME1 
NEXT I 

INPUT "QUANTE SONO LE FORZE? "|N 
PRINT 

IF N<-10 THEN 2690 

PRINT "SPIACENTE, NON PIU" DI 10. •‘H 
GOTO 2640 

PRINT "SCRIVI L'INTENSITÀ" DELLE":"FDRZE E LE DISTANZE DEI RI 
PRINT "SPETTIVI PUNTI DI APPLICA-"■ "ZIDME DALL*GRIGIA"1 1 
F-0 
T-0 

FOR 1-1 TO N 

PRINT ‘ t F“|0TRm(Il % " - “| 

INPUT X 

PRINT "DISTANZA • 

INPUT A 
F-F + X 
T«T*X*A 
PRINT 
NEXT I 

PRINT 11 -LA RISULTANTE DELLE FORZE E""il 
IF FOO THEN 2060 
PRINT TAB<6> 1 "F - 0"lli 
GOTO 2920 

F-INTUOOi (F+.003) 1/100 

X-INT(100*(T/F*.003))/100 

PRINT TAB<6)I"F ■"IFtl 

PRINT -IL 9UÓ PUNTO DI APPLICAZI06C" 

PRINT -E* POSTO AD UNA DISTANZA"! "DALL* ORIGINE 1 "• 1 

PRINT TAB <611“X -"|Xill 

GOSUB 3980 

BOTD 4010 

CALL CLEAR 

PRINT -MOMENTO 01 UNA FORZA"Il 
GOSUB 3900 
PRINT litici:* 

FOR 1*1 TO 6 
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3670 V(I»«-F-VC2) 

3BBO PRINT : I 

3890 PRINT - LE FORZE ESERCITATE SULLA” 
3900 PRINT “TRAVE NEI PUNTI A E B SONO:"Il 
3910 FOR I»1 TO 2 

3920 PRINT TAB<6> I "F M I CHR» (96+1) | '• «"|V(II 
3930 PRINT 
3940 NEXT I 
3930 PRINT : ; : 

3960 GOSUB 3980 

3970 GOTO 4010 

39BO CALL HCHAR(24,3.120.20) 

3990 PRINT ili 
4000 RETURN 

4010 PRINT 'VUOI CONTINUARE’’ <S/-N>“ 

4020 CALL KEYIO.K.S) 

4030 IF S-0 THEN 1020 
4040 1F K-B3 THEN 400 
4050 IF K»70 THEN 4070 
4060 BOTO 4020 
4070 CALL CLEAR 
4060 END 


Dopo il titolo Ginea 170) compaiono le definizioni dei caratteri grafici; 
ogni sezione del programma è accompagnata da una figura che illustra 
la situazione che si sta trattando rendendo pii) chiara, allo stesso tempo, 
la comprensione di quali dati vadano introdotti. Diciamo subito che le 
figure sono statiche e non rispecchiano fedelmente il problema che si sta 
affrontando ni cambiano al variare dei dati in input. 

La tecnica di programmazione non presenta difficoltà; per i calcoli si se¬ 
guono integralmente le formule riportate nella pane iniziale. Le varie se¬ 
zioni presentano la stessa struttura: sottotitolo, pane grafica-illustrativa, 
input dei dati, calcolo, output dei risultati. 

Alla riga 989 Vii) contiene il modulo dei vettori dei quali si chiede la 
somma; A è l'angolo in gradi. Alla riga 1040 l’angolo viene trasformato 
in radianti mentre le istruzioni seguenti (1060-1070) calcolano il modulo 
della somma. Alla riga 1080 si applica il teorema dei seni e alla 1100 
l’angolo viene trasformato in gradi decimali c successivamente (righe 
1110-1160) in gradi sessagesimali. Prima della stampa (riga 1230) i valori 
numerici sono trasformati in stringhe poiché altrimenti rimarrebbe uno 
spazio vuoto tra i numeri e i simboli che rappresentano i gradi, i primi e 
i secondi. 

Alla riga 1990, i vettori da sommare vengono associati a VII). Ad ogni 
input dell'angolo A (linea 2090) si calcolano te componenti dei vettori e 
contemporaneamente la loro somma; al termine, FX t la somma delle 
componenti parallele all’asse X ed FY è la somma delle componenti pa¬ 
rallele all’asse Y (righe 2100-2110). 

La variabile F di linea 2160 contiene il modulo della risultante mentre la 
X di riga 2180 t l’angolo che la risultante forma con l’asse delle X, Non 
bisogna dimenticare che la funzione arcotangente (ATM) restituisce un 
valore che, trasformato in gradi, è compreso tra -90° e + 90”, estremi 
esclusi; in base alle componenti FX ed FY si può tuttavia provvedere a 
dare il risultato con valori dell’angolo compresi tra 0° e 360°. 

La quarta sezione calcola la risultante di forze parallele. Alle linee 2710- 
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2720 F c T sono rispettivamente la somma delie forze e la somma dei 
momenti delle forze. In questo caso la variabile A (input di riga Z770) 
non rappresenta un angolo ma la distanza del punto di applicazione; è 
preferibile noa riservare altre aree di memoria con nuovi nomi di varia¬ 
bili! 

Il programma occupa 11 Kbyle. 

Ci trasferiamo ora alla tastiera per due esempi di applicazioni. 

1. Si voglia calcolare la risultante delle forze rappresentate in Figura 21. 



Fig. 21 


Le loro intensità sono Fi = 1200 kgf, Fi = 900 kgf. Fi =300 kgf, ed 
F» = 800 kgf. Gli angoli vanno riferiti al vaso positivo dell'asse delle x. 
Vediamo come vengono introdotti i dati e le risposte del computa. 
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RUN 


COTFOSIZIONE DI 



QUANTI SONO I VETTORI? 4 

SCRIVI I MODULI DEI VETTORI 

FI - ? 1200 
F2 - ? 900 
F3 - ? 300 
F4 - ? BOO 

... ED I RISPETTIVI ANGOLI 
FORMATI CON L'ASSE DELLE X, 
IN BRADI. 

AI - ? O 

A» 

A2 - ? 40 

A 

A3 *» ? 120 

A. 

A4 = ? 230 

LE COMPONENTI DELLA FORZA 
RISULTANTE SONO: 

FX - 1225.21 
FY = 225.40 

IL MODULO DELLA FORZA RISUL¬ 
TANTE E': 

F = 1245.79 

L'ANGOLO FORMATO CON L’ASSE 
DELLE X E": 

A «= 10.4* 


VUOI CONTINUARE? <S/N> 


<ENTER> 


<ENTER> 

<ENTER> 

<ENTER> 

<ENTER> 


<ENTER> 

<ENTER> 

<ENTER> 

<ENTER> 


2. Una trave appoggia su due punti A e B. Determinare le reazioni sui 
vincoli conoscendo le forze applicate (vedi figura 22). 

Bisogna innanzitutto stabilire un verso positivo per le forze. Se Fi, Fi, 
Fu ccc. vengono introdotte col segno positivo, F m e F b risultano negati¬ 
ve. Se eccezionalmente una delle due dovesse risultare positiva significa 
che la trave non può restare in equilibrio stando semplicemente appog¬ 
giata ma deve essere in qualche modo trattenuta. 
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Le distanze dei punti di applicazione devono essere riferite al punto A; 
punti alla destra di A hanno distanze positive, quelli alla sinistra distan¬ 
ze negative. 

Ecco come appare l'esecuzione dell'ultima parte del programma. 

RUN _ 

EQUILIBRIO 
DI UN CORPO RIGIDO 


A B 



QUANTE SONO LE FORZE? 3 CENTER> 

PER OGNI FORZA SCRIVI L’IN- 
Tn«TTa< f in niqTON7a noi 


TENSITA’ 

1 E 

t LA DI9TANZA DAL 


PUNTO 

FI 

A. 

m 

7 

200 

CENTER> 

XI 

a 

7 

-1 

CENTER> 

F2 

■a 

*> 

500 

CENTER> 

X2 

m 

7 

2 

CENTER> 

F3 

m 


40 

CENTER> 

X3 

m 

7 

3 

CENTER> 

FA 

m 

? 

too 

CENTER> 

X4 

m 

7 

4.5 

CENTER> 
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F5 = ? 300 
X5 - ? 7 

ORA SCRIVI LA DISTANZA AB 
AB - 3.3 


LE FORZE ESERCITATE SULLA 
TRAVE NEI PUNTI A E B SONO: 


Fa - -509.09 
Fb - -630.91 


<ENTER> 

<ENTER> 

<ENTER> 


VUOI CONTINUARE? (S/N) 


□senatiai 

11 programma affronta i due principali tipi di moto: il moto rettilineo 
uniforme ed il moto uniformemente accelerato. Ogni sezione comprende 
una pane Introduttiva, nella quale vengono deli gli elementi fondamen¬ 
tali, ed una pane applicativa che permette la soluzione dei problemi par¬ 
ticolari. 

Nel moto rettilineo uniforme è messo in evidenza che spazi uguali ven¬ 
gono percorsi in tempi uguali e che lo spazio e il tempo sono diretta¬ 
mente proporzionali. La rappresentazione grafica di questa legge è una 
retta uscente dall'origine. 

Nel caso di un moto uniformemente accelerato, con la tabulazione di al¬ 
cuni valori discreti, si mette in evidenza che la velociti è direttamente 
proporzionale al tempo mentre lo spazio i direttamente proporzionale ai 
quadrati dei tempi. 

Per la parte applicativa si usano le ben note formule riportate in ogni 
manuale di fisica, esse vengono Illustrate durante l’esecuzione del pro¬ 
gramma. Merita un breve commento il modo di gestire l'input dei dati al 
computer. 

sii è voluto poter calcolare una delle seguenti variabili: fissato un sistema 
di riferimento, x 0 è la posizione iniziale, x la posizione dopo il tempo i, 
v» è la velociti iniziale, v i la velocità al tempo l, a è l'accelerazione (co¬ 
stante), t il tempo. Ognuna di queste variabili si può calcolare in diversi 
modi a seconda dei dati a disposizione; ad esempio, si può calcolare x 
conoscendo x », v, a, I oppure x t , v 0 , v ed a oppure x t , vo. t e v oppure, 
ancora, x». v«, t ed a. Poiché ognuna delle sei variabili si può calcolare a 
partire da quattro diversi gruppi di dati iniziali, t ragionevole supporre 
di dover suddividere la sezione del programma in 24 pani per l’input dei 
dati e per i calcoli relativi. Ad un esame più attento si nota come sia 
possibile strutturare nello stesso modo l'input relativo a più variabili e 
creare delle routine. 
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670 PRINT 11 : 

880 CAUL HCHAR(23,S, 128) 

090 C«-L HCHARI23,6.134.1 A» 

VOO CALL hCHAR(23 22 132) 

910 PRINT TAB<3>l&HRÌU32>lCHR«C13e)tTAfiC14>|-SPAZI0"lCHR*(lS3> 
920 FOR I-l TO 12 

930 PRINT TAB<3M0A*<132>|TAB<4+I>|0#**<138> 

940 CALL SOUND OSO, -4,1) 

950 NEXT I 

960 PAINT TAB<3>lCHR*Cl51)f-TEMP0 ,, ii i 

970 PAINT _ _ 

980 PAINT -SPAZIO E TEfFO SONO " : " DI RETT<«NTE PROPOUIONALI"i s s 
990 BOSUB 3950 
1000 PAINT ti: 

1010 CALL CLEAR 

1020 PAINT -VELOCITA'*,"V-S/T"b x 
1030 PRINT -SPAZIO" -3-V*T-|i 
1040 PAINT •TEPFO-, l T-S/Vt«« 

1050 PRINT -PIU' IN GENERALE. SE IL" 

1060 PRINT “CORPO NON PARTE DALL'ORIGINE"rI 

1070 PAINT " X-XO+WlI 

1090 PAINT -DOVE XO E' LA POSIZIONE- 

1090 PAINT -INIZIALE - :t:i 

1100 0OSUB 3950 

1U0 GOTO 340 

1120 CALL CLEAR 

1130 PAINT TAB(ll>l"K-XO*V«T-ic: 

1140 PAINT "QUALE VARIABILE VUOI TROVARE" 

1150 PRINT -X, XO. V OPPURE T?”u 
1160 INPUT SCELTA* 

1170 PAINT t:: 

1180 PAINT TAB(0)1"SISTEMA 
1190 IF SCELTA**"*" TMEN 1250 
1200 IF SCELTA*--XO” ÌMEN 1330 
1210 IF SCELTA4--V" T>CN 1440 
1220 IF SCELTA*--T- T»CN 1530 

1230 PRINT •• -VARIABILE NON PREVISTA!“RIPROVA"a t 

1240 GOTO 1150 

1230 PRINT ibi 

1260 IXFUT "XO - “iXO 

1270 INPUT -V - "JV 

1280 IM*UT -T - ":T 

1290 PRINT 

1300 M-xo-fvrr 

1310 PRINT -X -"1INT ( lOOO«X) /IOOO| -fETRI"i lisi 
1320 GOSUB 3990 

1330 IF RISP*-”S“ THEN 1250 ELSE 340 

1340 GOTO 340 

ISSO PRINT ut 

1360 INPUT -X - *iX 

1370 IXFUT -V - -fV 

1360 I«>UT -T - -iT 

1390 PRINT 

1400 XO-X-V*T 

1410 PRINT “XO —“IINT<1000*10)/1000I"HTTRI-it: 11 
1420 GOSUB 3990 

1430 IF RISP*-"9" THEN 1350 ELSE 340 

1440 PRINT ita 

1450 1KFUT "I - "il 

1460 IPFUT -XO - -tXO 

1470 INPUT “T - -|T 

1480 PRINT 

1490 V—<X-X0)/T 

1500 PRINT -V -“I INTUOOO«V)/IOOO|-M/S-: t II : 

1510 GOSUB 3990 

1520 IF RISP4--S" T>CN 1440 ELSE 340 

1530 PRINT k a i 

1540 IMPUT "X - -il 

1350 INPUT -XO - -i XO 

1560 IIFUT -V - -«V 

1570 PRINT 

15B0 T-<X-XO)/V 

1590 PRINT -T --IlNT(100O*T)/10001" SEC."is:t: 

1600 GOSUB 3990 

1610 IF RISP*-“S- 1>EN 1530 ELSE 340 
1620 CALL CLEAR 

1630 PRINT • NOTO UNIFORMEMENTE" 

1640 PRINT TABC 10)1" ACCELERATO" «r mi 
1650 PRINT -1. SPIEGAZIONI-*■ 

1660 PRINT "2. APPLICAZIONI"il 
1670 INPUT "SCELTA? "iSC 
1600 IF SC-1 THEN 1720 
1690 IF 9C-2 THEN 2360 

1700 PRINT -DEVI PRETORE 1 0 2, RIPETI"'aa 
1710 GOTO 1670 
1720 CALL CLEAR 
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CALL HCHARI3.I0,130) 

POR RIGA-6 TO li 9TEP S 
FOR 1-0 TO 2 

CALL HCHARCRI8A*!,10,131-H» 

CALL HCHARUU0A+3, 10. 129) 

CALL HCMAR(RI0A+*[IO,130) 

NEIT RIDA 

CALL HCHARI21.3,130,2*) 

CALL HCHAR(4,l2,1331 
GD5LTB 3930 

CALL HCMAR(23,1,32, 32* 

OATA 4,138.A,136,V,138,13,137,1B,1*1,19,140 

READ RIGA.CARAT 

CALL HCHAR(RIGA,12.CARAT) 

IF CARAT-141 THEN 1920 
CALL SOUND(300,-4,1) 

NEXT 1 

INPUT ''VUOI RIVEDERE? (S/N) ":R4 
IF M* H S- THEN 1720 
CALL CLEAR 

PRINT "TEMPO BPAZIO" 

PRINT “(SEC) (METRI>• 

PRINT 

CALL HCHAR(23,3,147, 20) 

FOR 1-1 TO IO 

PRINT I \ TAB(9)|4.9*1*1fTAB(18)I" - 4.9*"lSTR4C1*1> 

NEXT I 

PRINT 

CALL HCHAR(23,3,147,20) 

PRINT 

PRINT "LO SPAZIO PERCORSO E‘“ 

PRINT "PROPORZIONALE AI QUADRATI" 

PRINT "DEI TEMPI"i: 

PRINT -LA LEGGE DEL MOTO E’i'ti 
PRINT TA0C0) |’X-1/2«G*T A 2 G-9.0"ii« 

G05UB 3930 
CALL CLEAR 

PRINT "TEMPO VELOCITA ' ** 

PRINT "(SEC) (M/S)-Il 

CALL HCHARC23,3,147, 20) 

FOR I-l TO IO 

PRINT 11 TAB (!2>l9.8*I| TAB 10) ) «* ■ 9. 8« - P STR4 ( I ) 

NEXT I 

PRINT 

CALL HCHAR<23,3,147,20) 

PRINT 

PRINT “LA VELOCITA* E’ PR«*°0R2 1MNA-■ 

PRINT "LE AL TEMPO TRASCORSO"li 
PRINT "LA LESSE DEL MOTO E*."x: 

PRINT TAB (IO) I "V-0*T G-9.?"uir 

UOSUB 3930 
CALL CLEAR 

PRINT "FORMULE DEL MOTO" 

PRINT "UNIFORMEMENTE ACELERATOi"iii 
PRINT "V-VO*A*T"ii 
PRINT "X«KO^VO*Ul/2tA*r2”ll 
PRINT "V~2-VO~2*2*A(X-XO>“ 

PRINT tu : i 
GOSUB 3990 

IF RISP4-"9" THEN 1720 ELSE 340 

CALL CLEAR 

PRINT "VARIABILIl“ll 

PRINT "X XO V VO A T"iii 

INPUT "COSA DEVI TROVARE? "(Al 

IF A4-"X" THEN 2400 

IF At-"XO" THEN 2630 

|P A4-"V" THEN 2770 

IF A4-"VO" THEN 2990 

IF A4-"A" THEN 3130 

IF A4—"T" THEN 3260 

PRINT "ERRORE* RIPROVA"il 

GOTO 2390 

PRINT 52t 

INPUT "XO - "iKO 

D09UB 4090 

ON CTR GOTO 2320,2340,2360,2380 

VO—V-A*T 

GOTO 2380 

T-(V-VO)/A 

GOTO 2300 

A-(V-VO)/T 

GOTO 2300 

X - XO+VO« T-«-A« T*T/2 

PRINT 
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PRINT "X -“I ic; -fCTRI'::: 

GOSUB 3990 

IF RISP«-"S* Tt£N 2360 ELSE 340 
PRINT sii 
INPUT "X - M 
GD9UB 4090 

0N CTR GOTO 2670,2690,2710,2720 

VO-V-A*T 

GOTO 2720 

t»<v-vo>/a 

GOTO 2720 

A-<V-VO)/T 

I0-X-V0*T-A*T*T/2 

PRINT 

PRINT "Kó -“F KOI-«TRI-t si 
GOSLTB 3990 

IF RISP*«"S- THEN 2360 ELSE 340 
PRINT iti 

PRINT "CONOSCI T? <S/N)" 

CALL KEY <0,KjS) 

IF S-0 THEN 2790 
IF K-03 THEN 2880 
IF K-70 THEN 2840 
GOTO 2790 
GOSUB 4450 
V»VO*VO*2*A#X-2«A*XO 
V«SQR<ABS<V>) 

GOTO 2950 
GOSUB 4500 

OH CTR GOTO 2900,2920,2940 
A-2«<X-X0-V0»T)/fT*T) 

GOTO 2940 

VO-(X-X0-A*T*T/2) /T 
GOTO 2940 
V»V0^A#T 
PRINT 

print -V ••ivi-n/a-ns 

GOSUB 3990 

IF RISPt- 'S- THEN 2360 ELSE 340 
PRINT ne 
INPUT M A - -:A 
GOSUB 4760 

» CTR GOTO 3030.3060,3080 
V0«V*V-2*A*X*2*A*X0 
VO«SOR <ABS(VOI> 

BOTO 3090 

V0« <X-X0-A*T*T/2>/T 
GOTO 3090 
VO-V'A»T 
PRINT 

print “VO «"ivoi-ri/s-j : : 

GOSUB 3990 

IF RISP4--S* T>CN 2360 ELSE 340 

PRINT i i t 

INPUT "VO - VO 

GOSUB 4760 

ON CTR GOTO 3170.3190.3210 

A«<V*V-V0#V0>/(2*<X-x6)) 

GOTO 3220 

A»2* CX-XO-VO*TI/<T*T> 

GOTO 3220 
A*IV-VO)/T 
PRINT 

PRINT "A --IAi-n/S-2-six 
□DSUB 3990 

IF RISP4» ,, S“ TFCN 2360 ELSE 340 
PRINT iti 

PRINT "CONOSCI V? <S/N)• 

CALL KEYCO.K.S» 

IF S«0 TKCN 3290 
IF K-03 THEN 3390 

otto’jSbJ** 3830 

GOSUB 4450 
V-VO*VO*2*A*X-2«A#XO 
V«SQR(ABSIV )ì 

IF < CV-V0>/A>>«0 TICN 3300 
V»-V 

GOTO 3400 
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-.MIN..SEC.“ss 

In secondi"i z 


3470 VO—VO 
3480 T*<V-VO)/A 
3490 PRINT 

3500 PRINT "T --{TI •SECONDI ’m 
3310 GOSUB 3990 

3320 IF RI3P9--S - T>«N 2360 ELSE 340 
3330 CALL CLEAR 
3340 PRINT -I. SECONDI IN 
3330 PRINT “2. ORE,MIN., SEC. 

3360 PRINT -3. K/H IN M/9“sl 
3370 PRINT -4. fl/9 IN K/HMii: 

3380 CALL KEYtO.K.S) 

3390 IF S-O THEN Ì3B0 
3600 K-K-4B 

3610 IF <K<1)*MK>4>T>CN 3380 

3620 ON K BOTO 3630,3730,3830,3890 

3630 CALL CLEAR 

3640 IMHJT -SECONDI? •cS0C 

3630 PRINT sax 

3660 H-1 NT < SEC/3600) 

3670 SEC-SEC-H»3600 
3680 M-INT(9EC/60) 

3690 SEC - SEC-M# 60 

3700 PRINT HI"ORE -IMI“MIN. «|5ECI"SEC.-tta 
3710 B09UB 3990 

3720 IF RISP9--S" TVCN 3330 ELSE 340 

3730 CALL CLEAR 

3740 INPUT "ORE “:H 

3730 SEC-K*3600 

3760 IN>UT “MIN. “ili 

3770 S€C"SEC-* , M*60 

3780 INPUT "SEC. H :S 

3790 9EC-SEC+S 

3800 PRINT aia"SONO: *1SECf-SECONDI-aria 
3810 BOSUB 3990 

3820 IF RISP6-"9- T«N 3330 ELSE 340 
3830 CALL CLEAR 

3840 INPUT “VELOCITA' <K/H) ’:V 
3830 PRINT ;i: 

3860 PRINT "E' USUALE A ’1V/3-61"M/5"t:ri 
3870 BOSUB 3990 

3880 IF RISP*«”S" THEN 3330 ELSE 340 
3890 CALL CLEAR 

3900 IWT "VELOCITA* IM/S> ’:V 
3910 PRTNT ji: 

3920 PRtNT “E* UGU#^E A ’|V*3.6|"K/H“i xx i 
3930 BOSUB 3990 

3940 IF RISP6-"9" T>€N 3330 ELSE 340 
3930 PRINT " PREMI UN TASTO’ 

3960 CALL KEY10.K.G) 

3970 IF 3-0 THEN 3960 
3980 RETURN 

3990 PRINT -VUOI CONTIHJARE? CS/N)“ 

4000 CALL KEYIO.K.9) 

4010 IP S-0 THEN 4oÒO 

4020 IF (K-B3>«-<K-1I5)T>«N 4050 

4030 IF (K-78)'MK-ll0)T»«N 4070 

4040 BOTO 4000 

4030 R!SPt-"S M 

4060 BOTO 4080 

4070 RlSf > t-**N" 

4000 RETURN 
4090 CTR-0 

4100 PRINT “CONOSCI VO? CS/N)’ 

4110 CALL KEY(O.K.S) 

4120 IF S-0 THEN 4110 

4130 IF K-B3 THEN 4210 

4140 IF K-7B THEN 4160 

4130 GOTO 4110 

4160 INPUT "V - V 

4170 INFUT "A - -!fl 

4100 INPUT "T - ": T 

4190 CTR-1 

4200 BOTO 4440 

4210 INPUT «VO - -:VO 

4220 PRINT “CONOSCI T? <S/N> ’ 

4230 CALL KEY(O.K.S) 

4240 IF S-0 THEN *230 
4230 tF K-93 THEN 4320 

4260 IF K-7B THEN 4280 

4270 GOTO 4230 
4200 INPUT "V - ":V 
4290 INPUT ’A - ":A 
4300 CTR-2 
4310 GOTO 4440 
4320 lr«MJ7 -T - ":T 


(S/N) 


CS/N 


(S/N) 


(S/N) 
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verrà raggiunta la massima altezza; (c) dopo quanto tempo toccherà il 
suolo; (d) quale sarà la sua velocità nella componente verticale, al mo¬ 
mento dell'impauo al suolo. 

Per rispondere alla prima domanda, si dovrà calcolare la variabile jr. Se¬ 
lezionata la x quale variabile da calcolare, compare la richiesta del valo¬ 
re x«, senza questo dato il problema non à risolvibile. Poniamo x a = 100, 
con ciò è inteso che l’asse di riferimento è orientalo verso l’alto. Viene 
rivolta la domanda: CONOSCI V07 (S/N), la risposta é SI. Nell’input se¬ 
guente, VO-, scriviamo 96 e alla successiva domanda, CONOSCI T? 
(S/N), rispondiamo NO. Vengono allora chiesti i valori di V ed A. Deve 
essere V = 0, poiché alla massima altezza la componente verticale della 
velocità i zero e l'accelerazione è A--9.8; il suo segno é negativo per¬ 
ché il verso é opposto rispetto all’asse di riferimento. 

Vediamo che cosa apparirà sullo schermo. 



VARIABILI: 

K XO V VO A T 

COSA DEVI TROVARE? T 

CONOSCI V? (S/N) 

V - 0 

CONOSCI A? (S/N) 

A - -9,8 

CONOSCI VO? (S/N) 

VO - 98 

T - IO SECONDI 


<S> 

<ENTER> 

<S> 

CENTER> 

<S> 

CENTER> 


VUOI CONTINUARE? (S/N) 


<S> 
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Il programma in questo caso utilizza la formula v = v 0 +ar, da cui v 0 = 
v-at. Per rispondere alla domanda del punto (c), si seleziona nuovamen¬ 
te la variabile T, in questo caso, tuttavia, non si conosce il valore di V 
nel momento T, pertanto avremo il seguente output: 


VARIABILI: 

X XO V VO A 


COSA DEVI TROVARE? T 

CENTER > 

CONOSCI V? tS/N) 

<N> 

vo = va 

<ENTER> 

A = -9.0 

<ENTER> 

X = 0 

CENTER > 

XO = ÌOO 

CENTER> 

T = 20.97306535 SECONDI 

VUOI CONTIMJARE? tS/NI 

<N> 


11 computer calcola V con la formula v 1 = v e + 2 o { x - xq ) e sostituisce il 
valore nella v = v,+ ar esplicitata rispetto la /. Una piccola complicazio¬ 
ne è costituita dal fatto che V è uguale alla radice quadrata del valore V 1 
e la funzione SOR restituisce solo la radice positiva, mentre ne esiste an¬ 
che una negativa, opposta alla precedente, e mollo spesso è proprio 
quella che va presa in considerazione. Nel programma si è adottata la 
soluzione, anche se poco ortodossa, di assumere prima il valore positivo 
di V e, se questo compone un valore di T negativo, di prendere il suo 
opposto -V. 


Moto ad «crete rado ne costaste 

Nella "Giornata Quarta" dei Discorsi (1638), dedicata al moto dei 
proiettili, Galileo Galilei enuncia il principio della composizione dei mo¬ 
ti. Sono una forza costante il moto di un corpo può essere visto come la 
composizione di un moto rettilineo uniforme, lungo la direzione perpen¬ 
dicolare alla forza, e di un moto uniformemente acceleralo, nella dire¬ 
zione parallela alla forza (vedi figura 24). 

Nel caso della forza di gravità si può ritenere, entro certi limiti, che l’ac¬ 
celerazione sia costante: il suo valore è 9.B m/s -J . Delta v 0 la velocità 
iniziale ed A l’angolo formalo con la direzione orizzontale, le compo¬ 
nenti della velocità sono = v 0 cos /I e v», * v 0 sin A. In ogni istante 
successivo risulta e v, = v^-gr. La posizione è determinata dalle 

coordinate: 
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e y~yt + v t ,t-gt 2 /2 

Quest’ultima equazione, di secondo grado rispetto la variabile l, indica 
cbe la traiettoria è una parabola. 

Il tempo di volo è / - 2 %,/g e risulta il doppio del tempo impiegato per 
raggiungere la massima altezza A»(v2sin*<4)/(2g). La gittata. cioà la 
massima distanza percorsa lungo l’asse orizzontale, può esser calcolata 
moltiplicando v„, per il tempo di volo oppure con la formula 

, v# sin 2/4 

a “ - 

g 

Nel programma, se l'angolo A, formato dalla velocità iniziale con la di¬ 
rezione orizzontale, è diverso da zero, si assume che il corpo pana 
dall'origiiie, mentre se é /4«=0 viene chiesta l’altezza dalla quale parte il 
proiettile e si pone yo°h. In quest’ultimo caso la traiettoria i un ramo 
di parabola e la posizione iniziale coincide con il vertice. 


100 REM BALISTICA 

110 REn «•••••••*••■»•••■ 

120 REM di Svrqio Soriani 
130 REFI v«r*ion«;TI BASIC 
140 CALL CLEAR 

130 FRI NT TABU IM "NOTO AD"ii 

160 PR1NT •' ACCELERAZIONE COSTANTE" «i 

170 D€F Y»Y0*V0Y«T—4.9«T«T 

ISO Dlfl 6»( 14. 141 ,Aft<20> 

170 FOR J-0 TÒ 14 
200 FOR K-O TO 14 
210 READ S*(J,K) 






170 


FISICA 


220 fCXT 
230 NEXT 


240 DATA 0, 1,2, 3, 4,3,6.7.0, 9, A, B, C, D, E 
250 data 

240 DATA 2,3,2,34,74,7,A,B,A,B,E,F,E 
270 DATA 3,3.3,3,7.7,7,7,B,B,8,B,F,F,F 
260 DATA 4;5.6;7,4,3;4,7 J C,D,E,F,C,D,E 
290 DATA a.3,7’7,3^5, 7,7,D, D,F,F f D,D,F 
300 DATA 6,7,6, 7,6,7, 6, 7,E,F,E, F,E,F, E 
310 DATA 7 7 7 7 7,7 7 7 F F F F F> ^ 
320 DATA 8,9,A,B,C,D,E,F,G,9,A,B,C,D,E 
330 DATA 9,9, 0, B, D, D,F, F, 9,9, B, B, D,D, F 

340 data aIb’aIbIe^f^eìf.a.bIa.bIe.f.e 

330 data b,b,b,b.f,f,f,f;b,b,b;b,f;f;f 

360 DATA C.D,E,F,C,0,E.F,C.D.E,F,C,D,E 
370 data d,d,f;f,d,d,f,f,d,d,f,f,d,d.f 
390 data e.f,e,f,e.f,e,f,e,f.e,f,e,f,e 

390 BOTO 630 

400 REO **• SOrtIA CARAT *«* 

410 NC-NC+t 

420 IF NC>127 T«N 32767 

430 C»-'- 

440 FOR 1-1 TO 16 

450 Ll-ASC(SEB4<A*<CARAT1-I27> , 1,1)) 

460 L2-ASC(SEG4<A4<CARAT2-127),I,1>> 

470 IF LI>60 THEN 300 

400 VI-LI-40 

490 GOTO 510 

500 VI-LI-33 

310 IF L2>60 THEN 540 

320 V2-L2-48 

530 GOTO 550 

540 V2-L2-33 

550 IF VI-15 T«N 590 

360 IF V2-13 THEN 390 

370 C«-C«6St(Vl,V2) 

500 GOTO 600 
590 C3-CWF" 

600 NEXT I 

610 CAU- CHAR(NC,C4) 

620 RETURN 
630 CALL CLEAR 

640 PRINT " IL PROGRAM STUDIA IL NO- 


BLua 


CORPO SOTTO L’AZIO-" 

_ _ FOTTA DI GRAVITA'. "Il 

IN QUESTO CASO L’ACCELERA-" 


PRINT 

470 PRINT ...___ 

480 PRINT "Z IONE E’ COSTANT E 18- 9.8) ED" 
490 PRINT "IL NOTO RISULTA COf*>OSTO DA* 

700 PRINT "UN NOTO UNIFORME (VX-C09T.>" 

710 PRINT "E DA UN NOTO UNIFORtCTCNTE’ 

720 PRINT -ACCELERATO CVY.V0Y-B4T) . "t l 
730 PRINT " UNA APPLICAZIONE E’ COSTI-* 
740 PRINT "TUITA DAI TIRI BAL ISTI CI.«I t 
730 PRINT "(E* ADOTTATO IL SISTOW IKBI'DI 
760 CALL CHAR<150,"FF") 

770 CALL CHARI151, ‘0102040810204060*1 
760 CALL CHAR<152, "0402020101010101") 

790 CALL CHARI133,"0102040010304884") 

800 CALL CHAR < 154 ’ 0703050810204000- ) 

810 A41U--7C7C38ÒOOÒOOOOOO" 

020 A4(2)•"7C7C7C3800000000* 

830 A4I3)-*3B7C7C7C38000000" 

840 A»<4 >-"00387C7C7C390000" 

B50 A4(3)--0OOO3S7C7C7C3B0O" 

840 A4(4)•"OOOOOO307C7C7C38" 

870 A4 < 7 > *"00000000387C7C7C" 

BSO A4(0)-“00000000003B7C7C" 

090 A419) >"3800000000000000" 

900 A4(10)-"7C38000000000000" 

910 A4(tl)-"000000000000387C" 

920 A4(12)-"0000000000000038" 

930 A4(13)9"0000103F10101010" 

940 A4(14)-"OOOOIOFFOOOOOOOO" 

930 A4(15)■"1010103010101010" 

940 A4(14)-"0O0Ol0F810101O10" 

970 A4(17)-"1010101810101010” 

980 A4< 18) •" 1010103F10000000" 

990 A4 ( 19) -“OOOOOOFF 10000000" 

1000 A4(20)•*101010F810000000" 

1O10 FOR 1-1 TO 20 

1020 CALL CHARl 127*1,A4(I) ) 

1030 NEXT I 

1040 PRINT "* PREMI UN TASTO" 

1030 CALL KEY10,K,9» 

1060 IF S-0 ThEN 1030 
1070 CAU- O- FAR 
1080 NC-96 
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1090 PAINT TABU?) |CHR*(i34> 

1100 PAINT TABU4)1 “VO-1CHR*C131) 

Ilio PAINT TAB<1S)|CHR*USI) 

1L20 PRINT TABU4)pCHR*U31> 

1130 PRINT TABU3) |CHR«C1S3M ■ A" 

1140 PRINT TABI 12) |CHR* USI) jCHRt< 1921 
1150 CALL HCHAR<24,14,ISO.6) 

1160 PRINT Stic 

1170 PRINT "9CRIVJ LA VELOCITA' INIZIALE-lf 
UBO INPUT M V0 - M/S ”1VO 
1190 PRINT i: : 

1200 IF V0>0 THEN 1230 

1210 PRINT «DEVE ESSERE V0>0, RIPETI «in 
1220 GOTO UBO 

1230 PRINT "SCRIVI L’ANGOLO FORMATO CON" 

1240 PRINT "L’ A99E ORIZZONTALE’*! » 

1250 INPUT "A ■ QRADT «iGAAD 

1260 IF (GRAD>-0)•(GRAD<-90)THEN 1290 

1270 PRINT "DEVE ESSERE 0<-A<-90,RIPROVA"ii 

1280 GOTO 1230 

1290 RAD-GRAD»3.141392634/180 
1300 VOX-VC*C09<RAD> 

1310 V0Y-V0«6IN (RAD) 

1320 PRINT i*i 

1330 IF GRADOO T)CN 1420 

1340 PRINT "SCRIVI L’ALTEZZA DA CUI VIE-* 

1350 PRINT "NE EFFETTUATO IL LANCIO"il 

1360 INPUT "H - PIETRI “:H 

1370 YO-H 

1300 T-9CRCH/4.9) 

1390 GIT-VO«T 
1400 PRINT iii 
1410 GOTO 1430 

1420 H-V0*V0*SIN(RAD)^2/19.6 
1430 GIT-VO*VO«9tNC2*RAD)/9.0 
1440 YO-O 

1450 PRINT "VUOI IL DIMENSIONAMENTO"!"AUTOMATICO? <8/N>" 
1460 CALL KEY<O.K,B> 

1470 IF S-0 THEN 1460 

1400 IF K-B3 THEN 1310 

1490 IF K-7B TI«N 1300 

1500 GOTO 1460 

1510 UX-GlT/29 

1520 UY-H/19 

1530 IF UJOUY THEN 1360 

1540 U«UY 

1550 GOTO 1720 

1560 U-UX 

1570 GOTO 1720 

15B0 CALL CLEAR 

1590 CALL HCHAR <20, 16,141,2) 

1600 PRINT "ATTRIBUISCI UN VALORE Al-' 

1610 PRINT "BEOMENTO UNITARIO"!I 

1620 INPUT "U ■ "lU 

1630 PRINT iii 

1640 IF U>0 THEN 1670 

1650 PRINT «DEVE ESSERE U>O t RIPETl"nc 
1660 GOTO 1620 

1670 PRINT "LO SCHERNO COPRE UN CAMPO DI" 

1680 PRINT U*19f“P€R"fU*29|"NETR1“It 
1690 INPUT "PROCEDO*’ <3/N> " i R* 

1700 IP THEN 1720 

1710 GOTO 1580 
1720 CALL CLEAR 
1730 REH 

1740 REM AS9I DI 

1750 REI1 RIFERIMENTO 

1760 REM 

1770 CALL HCHAR<3,2,140) 

17B0 CALL HCHAR<3,3.141,28) 

1790 CALL HCHAR(3,3l,143) 

1000 CALL VCHAR(4,2.142.10) 

1810 CALL VCHAR(4.3l,144,18) 

1920 CALL HCHAR<22*2»1451 
1030 CALL HCHAR(22,3,146.28) 

1040 CALL HCHAR122•31,14 7 > 

1850 SCALA*-"U-"S»9 iR* ( INI 11000*U) / 1000) 6" PIETRI" 

1060 FQR J-l TO LEN(SCALA*) 

1070 L-ASC<SEG*<SCALA*.J*1>) 

1060 CALL HCHAR(2,l+J.L) 

1890 NEXT 3 
1900 REM 

1910 REP* STAMPA 

1920 REM 

1930 FOR COL-2 TO 31 
1940 X-(COL-2) HI 
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2820 INPUT -T • T 
2830 IF T>-0 THEN 2860 

2890 PRINT : t "DEVE ESSERE T>-0, RIPROVA":: 

2850 GOTO 2820 

2860 IF T<GIT/VO* THEN 2910 

2870 PRINT }:-DOPO'|Tt'SECONDI IL CORPO E”" 

2860 PRINT "BIA" CADUTO AL SUOLO'am 
2890 GOSUB 3020 

2900 IF K-83 THEN 2790 ELSE 2250 
2910 PRINT tir 

2920 PRINT -I -■|VOX»T,‘V -**Ylll 
2930 GOTO 2680 
2990 CALL CLEAR 
2950 NC-96 

2960 PRINT -VUOI CAMBIARE IL 01HENSIONA-PENTO DEL GRAFICO? (S/N)• 
2970 CALL KEY(O.K.S) 

2980 IF 6-0 THEN 2970 
2990 IF K-B3 T)CN 1580 
3000 IF K-70 TKCN 1720 
3010 GOTO 2970 

3020 PRINT -VUOI CONTINUARE? <S/N> ' 

3030 CALL KEYtO.K.S) 

3090 IF S*0 TICN 3030 

3050 IF (K-B3>*<K-7B)-0 THEN 3030 

3060 RETURN 

3070 CALL CLEAR 

3080 END 


Il programma è strutturato in modo lineare. All'inizio è posta l'unica 
routine per la somma dei caratteri resa necessaria parchi i pumi che for¬ 
mano la traiettoria non cancellino parzialmente gli assi di riferimento. 
Di essa si parla più dettagliatamente all'inizio del capitolo dedicato alla 
grafita; la sua presenza rende un po’ più lenta l'eecuzione della parte 
grafica ma i risultali sodo indubbiamente migliori e all’aspetto più com¬ 
pleti. 

Seguono l’input dei dati, costituiti dalla velocità iniziale, dall’angolo ed 
eventualmente dall'altezza dalla quale viene effettuato il lancio, il di¬ 
mensionamento automatico, su richiesta, la stampa dei punti che costi¬ 
tuiscono la traiettoria e, infine, i calcoli e la stampa dei risultati numeri- 
ri. 

Per la grafica sono stati definiti caratteri speciali per ottenere gli assi di 
riferimaito ed i pumi della traiettoria. I pumi sono in realtà piccoli cer¬ 
chi. la loro posizione è comunque determinata dal pixel centrale. La 
traiettoria viale visualizzata ponendo un cochietto in ogni colonna, da 
colonna 2 a colonna 31; la loro ordinata varia tuttavia pixel per pixel, 
poiché sono stati definiti cerchietti a diverse altezze aU’iniemo di un ca¬ 
rattere ed alcuni occupano una posizione “a cavallo’’ tra una riga e la 
successiva. 

Due ultimi brevi consigli all’utilizzaiore: (I) angoli prossimi a 90° rendo¬ 
no inadeguata la rappresentazione grafica, si può allora dimensionare a 
piacimento il grafico cercando di ottenere almeno una parte della traiet¬ 
toria; (2) il dimensionamento automatico comporta, generalmente, un 
valore decimale per il segmento unitario, rendendo meno immediata la 
determinazione delle misure sul grafico. 

Poiché il valore unitario che si ottiene con il dimensionamento automati¬ 
co viene mostrato, é possibile creare una seconda volta il grafico dimen¬ 
sionandolo in modo non automatico ed aumentando la misura del seg¬ 
mento unitario fino ad un valore intero desiderato. 
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Orbile del seleniti erti fidali 


Nei 1680 Robert Hooke sottopose a Newton l'ipotesi che il moto di un 
satellite potesse essere il risultato della composizione di un moto inerzia¬ 
le, lungo la tangente, e di un moto accelerato, lungo la direzione radiale. 
Esistono analogie con il moto di un proiettile esaminato in precedenza; 
la differenza consiste nel fatto che mentre prima eravamo in presenza di 
una forza costante, nel nastro caso la fo^a è centrale e varia di intensità 
e direzione. 

Da un punto di vista teorico, un’orbita planare è interamente determina¬ 
ta conoscendo l’altezza e la velocità tangenziale iniziali. La massa del sa¬ 
tellite, trascurabile rispetto la terra, non ha influenza sulla traiettoria de¬ 
scrìtta. Le dimensioni dell’orbita (semiasse maggiore) dipendono 
dall’energia, mentre l’eccentricità dipende sia dall’energia che dalla 
quantità di moto. 

L’energia totale del satellite è: 


E = 



ymM 

Rj+h 


dove m t la massa del satellite, A/=5.98x 10** kg è la massa della terra, 
fo è la velocità tangenziale nel momento iniziale, y è la costante gravita¬ 
zionale, 6.67 x IO"' 1 nel sistema uks, R r = 6.37x 10‘ è il raggio terrestre, 
h è la quota iniziale. 

Il momento della quantità di moto è; 

L = /n(R r + Ar)vo 

Entrambe le grandezze, E ed L, sono costanti, fissale le condizioni ini¬ 
ziali. 

La prima legge di Keplero dice che l'orbita di un satellite i un'ellisse c 
che la terra occupa uno dei fuochi. 

La seconda legge di Keplero afferma che le arce “spazzate" in tempi 
uguali dal raggio vettore che congiunge la terra al satellite sono uguali. 
Pertanto, immaginando il raggio vettore come una lancetta imperniata al 
centro della terra, lo vedremo ruotare rapidamente quando il satellite si 
trova vicino alla terra (perigeo), mentre ruoterà Ioniamente quando sarà 
lontano (apogeo). 

Una costante C, detta velocità areolare. rappresenta il doppio dell’area 
spazzata nell’unità di tempo. 

In questo programma C è stata posta arbitrariamente uguale a T x IO 11 ; 
variando T da tastiera si ottiene un moto più lento o più rapido, poiché 
cosi si fa variare l’area spazzata nell'unità di tempo. L'esperienza dette- 
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Rg. 26 


rà di usare valori bassi di T (T< 5) per orbite di piccole dimensioni e va¬ 
lori alti (r>6) per orbile ampie. 

L'ellisse è una curva generala da un punto che si muove in modo tale 
che il rapporto fra te distanze da un punto fisso, detto fuoco, ed una 
retta, detta direttrice, sia costante e minore di 1. Questa costante è detta 
eccentricità. 

Da un punto di vista geometrico (vedi figura 26) l'eccentricità è: 
e = PF/PQ. 



In riferimento al moto di un satellite l'eccentricità è data dalla formula: 

dove E è l’energia totale ed L 11 momento della quantità di moto. 
Calcolata l’eccentricilà dell'orbita e noto il valore di r, (r, =>R T + h), si 
deduce la misura di FD, doi la distanza della direttrice dal fuoco. 
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La distanza angolare percorsa nell’unità di tempo varia da punto a pun¬ 
to. Chiamato RAD l'angolo in radianti, sarà RAD = C/R 1 dove R rap¬ 
presenta la disi anza del satellite dal centro della terra. Tale distanza i 
inizialmete nota, per i punti successivi vale la seguente formula: 


l+excos(RAD) 

Questo calcolo i effettuato alla linea 1390 del programma. L’ultimo va¬ 
lore di R darà il auovo valore di RAD e questo il successivo valore di R, 
e cosi via. Le coppie di valori di R c RAD costituiscono le coordinate 
polari dei punti che formano l'orbita. Le coordinate cartesiane si trova¬ 
no facilmente: PB = R x sin! RAD). FB = R x cosi RADI. Successivamente è 
necessario trasformare le misure del sistema musa a quello relativo ai pi¬ 
xel del vìdeo e traslare l’origine per adeguarsi alle coordinate usate dai 
sistema operativo del computer. 

Si è adottato che un pixel corrisponda a 500 km, allora, detta PIXRIGA 
il numero di riga in pixel, è PIXRIGA = 97-P0*2* 1 E-6 e, detto PIXCOLO 
il numero di colonna in pixel, i PIXCOLO= 161 + FB*2»1E-6. 

Durante l'esecuzione simulata del volo orbitale l’utente ha a disposizione 
alcuni tasti programmali. Nell’ordine, il tasto 1 provoca ['apparizione 
della traccia deU'orbita sotto forma di puntini bianchi; il tasto 2 fa 
scomparire la traccia dell’orbita pur restando visibile il satellite ed inalte¬ 
rato il suo movimento; il tasto 9 fa tornare al menù principale; il tasto 0 
prepara il computer per l'introduzione di dati relativi ad una nuova or¬ 
bita; infine, qualsiasi altro tasto provoca l’arresto del movimento e l’ap¬ 
parizione dei dati riguardanti l’altezza, la velocità ed il valore dell’acce¬ 
lerazione di gravità riferiti a quell’istante. 

RUN 


* O 

ALTEZZA (Kilt VELOCITA'<M/S) 
4169.89 5563.39 

ACCELERAZIONE DI GRAV.: 3.56 
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I punti che tracciano l'orbila sono ottenuti con degli sprite di colore 
bianco. Con il TI Extended Basic è consentito l'uso di un massimo di 28 
sprite e non ne possono coesistere più di quattro sulla stessa riga. Per 
questi motivi, a volte, qualche punto può non apparire oppure può 
scomparire e riapparire al pasaggio del satellite. Regolando il tempo re¬ 
lativo di scansione T t possibile non solo controllare la velocità del satel¬ 
lite ma anche una più appropriata distribuzione dei punti che tracciano 
l'orbita. In ogni caso i punti saranno più densi in apogeo e più distan¬ 
ziali in perigeo, in accordo con la seconda legge di Keplero. 

Nell’ultima pane del programma vengono elaborati i dati relativi ad or¬ 
bile circolari. Scritta la quota in input, in computer Tornisce la velocità 
orbitale e la velocità di Tuga, sia in metri al secondo che in chilometri 
all’ora, ed il periodo di rivoluzione in ore, minuti e secondi. 

É Tacile verificare che ad una quota di 36000 km il periodo di rivoluzio¬ 
ne è di circa un giorno, conTermando che l’orbita è geostazionaria. 
L’esempio che segue si riTerisce ad un’orbita circolare posta a $00 km dì 
altezza dal suolo. 


RUN 



REM ... 

BEN * • 

REM • ORBITE * 

REM » DEI SATELLITI » 

REM « ARTIFICIALI • 

REM • « 

REM •••■••••••••••«•••« 

REM dii SERGIO BORSARI 
REM vvritonai EXT.BASIC 
CALL CLEAR 
CALL DELSPRI TE < ALL) 

REM •••DEFINIZIONE CARATTERI••* 
CALL CHAR1120,"O0C30F1F3F3F7F7F") 
CALL CHAR<129,“OOEOFBFCFEFEFFFF’I 
CALL CHAR(130,"FFFFFFFEFEFCFGEO”) 
CALL CHAR (131, "7F7F7F3F3FIFOF03** I 
CALL CHARU36, "B"> 

CALL COLOR(13,3,l> 
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280 DISPLAY AT<11,9)a"ORBITA DI* 

290 DISPLAY AT t13.B)i"UN SATELLITE 
300 CALL COLOR<2,^,16) 

310 CALL HCHAR <9,8,42,16) 

320 CALL VCHAR <Io,8,42,5) 

330 CALL VCHAR<I0,2Ì_42,3> 

340 CALL HCWAR<13.8,*2.I6> 

350 FDR J-l TO 30v 11 NEXT J 
360 RE fi ••• MENU * ■** 

370 PRINT “li STUDIO DI UN’ORBITA* 

380 PRINT "2i VELOCITA* ORBITALI 
390 PRINT "3i "i" H 

400 DISPLAY AT<24.I>t-SCELTA*- 
410 ACCEPT AT <24,9)BEEP VALICATE!*123")sBC* 
420 CALL CLEAR 
430 CALL COLOR<2.2.1) 

440 IF SC6-CHR6 430 JTHEN ISOO 
430 IF SC*OlR6<3l>THEN 2290 
460 CALL DELSPRITE <ALL) 

470 REM INPUT DATI 

480 PRINT • STUDIO DI UN*ORBITA"•" "l 
490 PRINT "9AB9A DEL SATELLITE" 

300 INPUT "H - KG "rKG 
310 PRINT - "i" - 
320 PRINT -ALTEZZA INIZIALE" 

330 INPUT M H - KM "iH 
340 IF M>0 THEN 380 

330 PRINT “ "i"L’ALTEZZA NON PUD' ESSERE 
360 PRINT -NEGATIVA! RIPROVA**!- “ 

370 GOTO 530 
300 IF M<47300 THEN 610 
390 PRINT * "i-SPIACENTE LA QUOTA E 
600 PRINT - " li GOTO 320 
610 PRINT " " 

620 PRINT "VELOCITA* TANGENZIALE" 

630 INPUT -V » M/S "iVO 

640 PRINT - -•-TEMPO RELATIVO <DA 1 A 9) 


E DI FUGA 




TROPPOALTA PER QUE9T0 PROGRAMMA 1 


650 INPUT "T - "iT 
660 IF T>-1 OR T<-1 
670 PRINT "VALORE N 


■ IO ThCN 680 

_ NON AMMESSO, RIPETI" li GOTO 630 

680 CALL CLEAR 

690 REM CALCOLI 

700 R1-6.37E+6+HH000 

710 L-KGiVO«Rl 

720 GM1M2-3.9BBE^I4*KB 

730 ENERGIA-<K6/2)«VO~2-GMlN2/Ri 

740 E-BQR<l+2«EftRGIA/KB*<L/6HlH2>~2) 

730 VC-SOR <3. 9B8014/R1 ) 

760 IF VCKVC THEN 040 
770 D-ffl+Rl/E 
7B0 R2-E*D/( I -E) 

790 A-<R1*R2>/2 


000 IF E>-1 
B-A«SQR 


_ . _ . THEN 910 

010 B-A«SQR <l-E~2> 

B20 PERIPIX-Rl*2*1E-6 
030 GOTO 910 
040 D-Rl/E-RI 
030 R2-E*D/(1+E> 

860 A-<Rl*R2»/2 
070 IF E>-1 THEN 910 
B80 B-A«9QR<1-E~2) 

090 PERIPII—R2«2*lE-6 
900 REM ••• DISPLAY •«# 

910 PRINT - SISTEMA MKSA"i" " 

920 PRINT "V < INIZ. ì -* , |VOi"" 

930 PRINT "V <CIRC-> -"|VCi" « 

940 PRINT "ENERGIA TOT. IENERGIA* " - 

930 PRINT "MOMENTO DELLA QUANTITÀ’ DI 
960 IF E>-1 THEN 990 
970 PRINT "SEMIASSE MAO. --£A|" " 


MOTO -"|Li- 


980 PRINT "SEMI 


MIN.» 


Hi 


990 PRINT -ECCENTRICITÀ* - f *|Ei" 

1000 IF VO<VC THEN K1-R2 il X2-RI il GOTO 1020 
1010 Xl-Rl vi M2-R2 

1020 PRINT USINO “H IN PERIGEO - M1-6.37E+6 

1030 PRINT 

1040 IF E<1 THEN 1070 

1030 PRINT "L’ORBITA E* APERTA!**!" " 

1060 GOTO 1120 

1070 PRINT U91NG "H IN APOGEO - •••••«««« 

1060 PRINT 

1090 IF RI<6.3E+6 OR R2<6»3E+6 THEN 1110 
1100 GOTO 1120 

1110 PRINT "VELOCITA* TROPPO BASSA?" 

1120 PRINT " • PREMI UN TASTO" 

1130 CALL KEYI0.K.8) 

1140 IF 8-0 THEN 1130 


*iX2-6.37E+6 
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1150 

1160 

1170 

UBO 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1200 

1290 

1300 

1310 

Ji!S 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1430 

1460 

1470 

1400 

1490 

1500 

1510 

1320 

1530 

1340 

1550 

1560 

1570 

1300 

1390 

1600 

1610 

1620 

163Ó 

1640 

1650 

1660 

1470 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

ieoo 

1810 

1820 

1830 

1040 

1850 

1860 

1870 

1880 

1090 

1900 

1910 

1920 

1930 

1940 

1970 


CALL CLEAR 
IF E>-1 THEN 520 
REM TERRA • ** 

CALL HCHARU2.20, 126» 

CALL HCHAR(12,2I,129» 

CALL HCHARIL3,21,130) 

CALL HCKAR<13,20,131> 

REM ••• SATELLITE ••• 

CALL BPRITE(»1, 136,2,97, I é> l-PERIPl X > 

NB-l 

C-T*1E*13 
RAD-C/Rl~2 
IF VO>-VC THEN 1290 
RAD-RAD+PI 

IF RADCI.3E+10 THEN 1330 

FRI NT -SPIACENTE, CON QUESTI VALORI- 

PRINT -NON POSSO DISEGNARE L'ORBITA" 

m aF 

RETI OCTERflINAZlOfC POSIZIONE SATELLITE #•# 

R-E*D/<1*E*C09<RAD>) 

PB-RftSIN(RAD) 

FB-R#COS<RAD> 

P|IRXQA-97-PB*2«lE-6 
PIX COL 0-161+F B* 2* t E-6 
IF PI XR2(3A< I OR PIXRIBAM92 THEN 1430 
IF PIXCOLCK1 OR PIXC0L0>Z56 THEN 1430 
CALL LOCATE(41,PIXRISA,PIXCOLQ) 

RAD-RAD*C/R~2 

REM TASTI PROQRAfWATI Mfl 

CALL KEY(O.K.B) 

IF S-0 THEN 1520 

IF k*-48 THEN BC9-CHR4 «49) I » BOTO 420 
IF K-49 THEN 1690 
IF K-50 THEN 17S0 

IF K-57 THEN CALL CLEAR «i CALL DELBPRITE(ALL)n GOTO 370 
GOBUB 1540 

R£M°»Ì«D?SPLAY DATI#** 

DI9PLAY AT <20,1> a"ALTEZZA<KH) VELOCITA'<M/9)" 

CALL POBITION< 91, X X, Y Y ) 

HX-R/1000-6370 
VX-L/ <KB*R> 

ACg»3. 90BE**!4/R~2 


♦ 14/F 

DISPLAY AT(22,3)9IZE(10)tUSINO ■illtflHt.tttt H iHX 
DISPLAY AT <22, 15) : UBINO “•#•••* •#'*: VX 
DISPLAY AT(24,l)iACCELERAZIONE DI BRAV.i' 
DISPLAY AT <24,24 ) i USINO "«.(HTiACC 
CALL KEY<ObK.S> 

IF 9-0 THEN 1630 
CALL HCHAR <20.1.32.160) 

CALL LOCATE (Pi, XX,YY> 

RETURN 

REM **# TRACCIA ORBITA **• 

N9-NS+1 

IF N9>28 THEN 1350 
CALL POSITION(»1.XX,YY) 

CALL 9PRITE(4NS,136,16,XX,YY) 

GOTO I350 

REM ••• CANCELLA ORBITA • »« 

CALL P08IT10N(B1,XX,YV> 

CALL DELSPRITE(ALL) 

CALL SPRITE((I1,13A,2,XI,VV> 

NS-1 

GOTO 1330 

REM «««VELOCITA* ORBITALI*** 

REM ***E VELOCITA* DI FUGA*** 

PRINT TAB <6)1"DAT I COSTANTI"!’ *1* *1- * 

print -costante gravitaziowle- 

PRINT "G - 6.67E-U"!- “ 

PRINT "RAGGIO MEDIO TERRESTRE" 

PNINT “R - ù.37E*6"i' " 

PRINT "MASSA DELLA TERRA" 

PRINT "M » 3.9SE*24"s" "i" 

PRINT " (SISTEMA HKBA1.. ■ 

PRINT *• PREMI UN TASTO" 

CALL KEY(O. K,8) 

IF S-0 THEN 1910 
CALL CLEAR 

DISPLAY AT (3,3) l -- ORBITE CIRCO-ARI -- 


14 


1990 

2000 


DISPLAY AT16, 1>I "ALTEZZA - KJ1- 
DISPLAY AT(B.l)t"VELOCITA* ORBITALE" 

DISPLAY AT(12,III"VELOCITA' DI FUGA- 
DISPLAY AT(lt, III -PERIODO ORBITALE" 

DISPLAY AT(17.3»|"GIORNI ORE MINUTI SECONDI" 
ACCEPT AT ( 6, M) VALICATE (NUMERIOBEEPlHH 
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2010 

2020 

2030 

2040 

2030 

2060 

2070 

2080 

20*0 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2210 

2220 

2230 

2240 

2230 

2260 

2270 

2280 

2290 

2300 


IF HH<0 THEN 2000 
R2««SOR <HH# 1000*6. 37E*6) 

R2GH-1.997E+7 
V1-R28M/R2R 
V2-Vl»SQR(2> 

PER- (M4-IOOO+6.37E+6) »2*PI/V1 
QG-IhTT (PER/0Ó4OO) 

RESTO-PER-GQ«iB64O0 
HO-INT(RESTO/3600) 

RESTO-RESTO-HO*3600 
Ml-INT(RESTO/60) 

DISPLAY AT(9-3):“H/S "IVI 
DISPLAY AT(1Ò,3>:“KM/H *|V1«3.6 
DI9PLAY AT<13,3l?-n/S “IV2 
DI9PLAY AT <14,3): “KM/H L 'V2*3.Ò 
DISPLAY AT<18,3> iG6; H “lHDi“ "IMI;' 

DISPLAY AT <23. 1 > t “ 1 - PER COWTINU/WC- 
DISPLAY AT(24.1>("2. PER FINIRE" 

CALL KEYIO.K. 5) 

IF S-O THEN 2190 
1F K-49 THEN 2230 

IF K-50 THEN CALL CLEAR tt GOTO 370 ELSE 2190 
CALL l-CHAR (9, 1.32,32) 

CALL HCHAR( lò,1.3z,32) 

CALL HCHAR(13,1,32,32) 

CALL HCHAR(14,1,32,32) 

CALL HCHAR<10,1,32,224) 

GOTO 2000 
CALL CLEAR 
END 


I INT (RESTO-M 1*60) 


U programma è strutturalo in modo semplice e lineare. Nelle righe 100* 
BOO si definiscono i caratteri che formano la terra e viene dato iJ menù 
per l'accesso alle due principali sezioni. Nella pane 510-720 si accettano 
i dati in input e successivamente, nelle linee 730-930, si effettuano i cal¬ 
coli per le caratteristiche dell'orbita i quali vengono visualizzati nell'in¬ 
tervallo 940-1210. 1 dati comprendono la velocità iniziale, la velocità re¬ 
lativa ad un'orbita circolare, l'energia totale (il segno negativo indica 
che siamo in presenza di una forza attrattiva), il momento della quantità 
di moto, lunghezza del semiasse maggiore e del semiasse minore, eccen¬ 
tricità, altezza in perigeo ed in apogeo. Le linee 1220-1Z70 danno il gra¬ 
fico della tara e dd satellite; la terra è fatta apparire più piccola di 
quanto risulta dalla scala delle grandezze poiché, airrimenti, le orbite più 
basse sembmebbero intersecare la terra stessa. 

In 1280-1370 si determina il valore di RAD (incremento angolare in ra¬ 
dianti); tale valore non può essere maggiore di 1.57DE +10, limite massi¬ 
mo per l'argomento della successiva funzione COSÌ RAD). Le linee 1380- 
1470 posizionano il satellite ed in 1480-1560 sono programmati i tasti 
po’ le funzioni esposte in precedenza. Nelle parti 1570-1710, 1720-1770 e 
1780-1830 trovano posto rispettivamente tre routine per la scrittura dd 
dati temporanei, per tracciare l'orbita e per cancellarla. 

Ndl'uldma pane, linee 1840 e seguenti, vengono elaborali i dati riferiti 
ad orbite drcolari. 

La memoria richiesta è di 6.4 K. 
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Coavenkme delle ani ti di misura 

in appendice al capitolo viene presentalo questo semplice programma 
che permette di convenire le principali unità di misura adottale nel Siste¬ 
ma Internazionale, nel sistema cgs, in quello tecnico ed in quello in uso 
nei paesi anglosassoni. Le grandezze fisiche considerale sono: lunghezza, 
tempo, angoli, velocità, accelerazione, massa, forza, pressione, tempera¬ 
tura, energia, potenza. Le tabelle di conversione non vengono riportate 
nel testo per ragioni di spazio e perché sono facilmente desumibili dal li¬ 
stato in corrispondenza delle istruzioni DATA presenti nelle rispettive se¬ 
zioni del programma. A seconda delta grandezza fisica prescelta, i fatto¬ 
ri di conversione vengono caricati nella matrice bidimensionale A(I,J) e 
richiamati in base alTunità di misura I nella quale i espressa la grandez¬ 
za e all’unità J nella quale deve essere convertila. 

Per il lettore che non possiede ancora gronde padronanza del Basic si ri¬ 
corda che l'istruzione RESTORE serve a riportare il puntatore 9ui dati 
che devono esser letti con la successiva READ, altrimenti questi vengono 
letti sequenzialmente, indipendentemente dalla loro posizione nel pro¬ 
gramma. 

Poiché le varie sezioni posseggono la stessa struttura, si fa il massimo 
uso di routine, per l’input, il calcolo e la stampa dei risultali. Risulta 
inoltre agevole trascrivere o trasferire ad un altro programma anche solo 
la pane che interessa, senza particolari adattamenti. 


IOO REM CONVERSIONI DELLE 
110 REN UNITA* DI NI3URA 
120 REM ••«•••«•»••••**••* 

130 REM di) SERGIO BORSANI 
140 REN viratomi TI BASIC 
130 CALL CLEAR 
160 CALL CHAR(129,"F") 

170 CALL COLOR 11 3,A,61 

IBO PRINT TAB(S) I'CONVERSIONI DI "l l TAB<71 I "UNITA* DI MISURA": i ■ ■ ■ i i i ■ i 
190 CALL MCHARI10,7,128,201 
200 CALL VCHAR(11,7,120.3) 

210 CALL VCHARIIt,24.126,3) 

220 CALL HCMAR <16,7,120.20) 

230 CALL CHAR (136, • I 6O3OÌ04B 3" ) 

240 POR T-l TO 30ft 
230 NEXT T 
260 CALL CLEAR 

270 PRINT "SCEGLI IL TIPO DI GRANDEZZA" 

280 PRINT -SCRIVENDO IL NUMERO CORRI-■•» "SPDNDENTE. “l ■ 

290 PRINT - I. TEMPO. 2. LUNGHEZZA. 3. ANGOLI" 

300 PRINT " 4. VELOCITA*":" 3. ACCELERAZIONE")" 6. MASSA" 

310 PRINT “ 7. FORZA")" 8. PRESSIONE-)" 9. ENERGIA" 

320 PRINT “10. POTENZA“e"II. TEMPERATURA")l 

330 INPUT "SCELTA"? *)N 

340 IF (N>-l > • (N<r-ll 1THEN 370 

330 PRINT TAB(6>r- ERRORE* RIPETI -"il 

360 GOTO 330 

370 ON N GOTO 3S0.360,760,930,I110,12S0,1430,1620,1000,1990,2160 

300 CALL CLEAR 

390 PRINT "TEMPO"): 

400 GOSUB 2690 

410 DATA SECONDI,MINUTI, ORE,GIORNI.ANNI 

420 RESTORE 410 

430 MA»-3 

440 GOSUB 2B40 

430 DATA 1,I.667E-2.2.770E-4.1.13BE-3,3.169E-8 
460 DATA 6Ò.I.1.667É-2 1 6.943É-4.1.9E-6 
470 DATA 3600.60.1..0417,1.14E-4 
480 DATA 06400,1440,24,1.2.74E—3 
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7E Z 5,2.7E- 


IG 


490 DATA 3-Ì3ÒE*7,3.239E+5,B760,365,l 
500 BOSUB 2GB0 
510 60SUB 2720 
520 GOSUB 2600 
530 GOSUB 2780 
340 GOSUB 24/0 

350 IF K-70 THEN 270 ELSE 310 
360 CALL CLEAR 
370 PRINT "LUNGHEZZA":s 
380 GOSUB 2690 

390 DATA rETRO. YARD, FOOT, 1NCH, MIGLIO, MIGLIO MARINO, ANNO LUCE 
600 RE9TORE 390 
610 MAX-7 
620 GOSUB 2940 

630 DATA 1.1.094,3.20.39.37.6.214E-4,3.4E-4.1.037E-16 
640 DATA .914,1,3.36,3.67E-4,4.93E-4!9.66E-17 
650 DATA .303..33S.1,12,1.B9E-4.l.64E-4.3.22E“17 
660 DATA .0234.2.7>7E-2.B.333E-2.1,I.37É-3,1.37E-3 
670 DATA 1609.344,1760,5280.63360,1..0604,1.7E-13 
680 DATA 1853.1G4,2026.666.«080.72960,1.1513.1.1.937E—13 
690 DATA 9. 46E+15, 1.033E+16,3. lè+16, 3. 7E-*-l7,4. àSE+12,5. 1E+ 12,1 
700 D08UB 2080 
710 GOSUB 2720 
720 909UB 2600 
730 GOSUB 2700 
740 GOSUB 2470 

730 IF K-03 THEN 710 ELSE 270 
760 CALL CLEAR 
770 PR1NT "ANGOLI "M 
760 BOSUB 2690 

790 DATA RADIANTI,GRADI«PRIMI,SECONDI 

000 RE9TORE 790 

810 MAX-4 

820 GOSUB 2040 

030 DATA 1,37.3,3430.206280 

040 DATA 1.743C-2,1,60.3600 

030 DATA 2.908E-4,1.666E-2,1,60 

B60 DATA 4.B47E-6,2.777E-4,1.666E-2,1 

070 GOSUB 2GG0 

000 GOSUB 2720 

090 GOSUB 2600 

900 GOSUB 27B0 

910 GOSUB 2470 

920 IF K*B3 THEN 000 ELBE 270 

930 CALL CLEAR 

940 PRINT "VELOCITA **■i 

930 GOSUB 2690 _ _ 

960 DATA M/SEC.CM/8EC,KM/H,FT/0EC,NODI 

970 RE9T0RE 96Ò 

980 CWK-S 

990 GOSUB 2B40 

ÌOOO DATA 1.100,3.6,3.201,1.944 

1010 DATA 1E-2,1.3.&£*-2,3.28E-2.I.944E-2 

1020 DATA .2770,27.770,1..911,.4397 

1030 DATA .3040,30.40,1.090,1,.3926 

1040 DATA .5140,31.40,1.833,1.689,1 

1050 GOBUB 2000 

1060 GOSUB 2720 

1070 GOSUB 2600 

1000 GOSUB 2780 

1090 GOSUB 2470 

HOC IF K-B3 THEN 1060 ELR£ 270 
lllò CALL CLEAR 
1120 PRINT "ACCELERAI IONE*• I 
1130 GOSUB 2690 

liso DATA*M/3EC AL BEC.,Cd/SEC AL 9EC.,FT/9EC AL BEC,KM/H AL SEC. 
1160 RESTOSE 1130 
1170 GOSUB 78*0 
1100 DATA 1.1£*2,_._ 

Ì200 DATA , ^" 2 * I * 3 -* aie ~ 2 '^* E " 2 

1210 DATA I_ 

1220 GOSUB 2BBO 
1230 GOSUB 2720 

!&S GOBUB ^ 

1260 0O9UB 2*70 

1270 IF K-03 THEN 1230 ELBE 270 
12BO CALL CLEAR 
1290 PRINT n RAa8A"ll 
1300 GOSUB 2*90 

1310 r«x-* 

1320 DATA BRAtTIO.KG,ONCIA,LIBBRA 
1330 RESTOSE 1326 
1340 GOBUB 2840 
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1330 
1360 
1370 
1380 
1390 
|00 
10 
1420 
[430 
1440 
1430 
1460 
1470 
1400 
1490 
1300 
1510 
1320 
1330 
1340 
ISSO 

i£S 

1300 

[390 

1600 

1610 

1620 

1630 

1640 

1630 

1660 

1670 

1600 

1690 

1700 

1710 

1720 

1730 

1740 

1730 

1760 

1770 

1700 

1790 

1000 

1010 

1B20 

1030 

1040 

1050 

ìa7o 

1080 

1090 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1900 

1990 

2000 

2010 

2020 

2030 

2040 

2030 

20*0 

2070 

2000 

2090 


DATA 1. IE-3.3.327E-2.2.2E-3 

DATA 1000.1,35.27.2. JÒ4 

DATA 20.3*9.2.B33E-2,1.fc.2SC-2 

DATA 433.392,.433*,li,1 

BQSUB 2080 

GOSUB 2720 

QOSUB 5*00 

GOSUB 2780 

QCBUB 2470 

IF K-03 THEN 1400 ELBE 270 

CALL CLEAR 

PRINT '■FORZA” il 

OOSUB 2690 

max-4 

DATA DINA.NEWTON,KSF.LBF 
RE9T0RE 1*90 
QOSUB 2040 

B ATA i.lE-S,1.02E-6.2.24BE-6 
ATA 1E+3,1,.102.•223 
DATA 9.SE-3,9.0,1.2.2 
DATA *.443E-3,4.4*3,.434,1 
QOSUB 2000 
BQSUB 2720 
QOSUB 2600 
SOSTI8 2700 
QDSUB 2470 

1F K-03 THEN 1370 ELSE 270 

CALL CLEAR 

PRINT -PRESSIONE* li 

B03UB 2690 

PIAX-S 

DATA DINE/CMG,NEWTON/HQ,LBF/INO,ATMOSFERA,BAR 
RESTORE 1660 
BOSUB 2040 

DATA 1..1,1.43E-3,9.263E-7,IE-6 
DATA 10.1.1.43E-4.9* B71E-6,IE-3 
DATA 6. 09ÌE+4,6.096E+3,1,.060, .0680 
DATA 1•013E+6,1.013E+S.1*.7,1,1.013 
DATA 1E+6.1E+3,14.3,.9071,1 
QOSUB 2000 

B8iyE !*o8 

GOBUB 27BO 
GD9L/B 2470 

call“?leaS EN 1730 EL9E 270 

PRINT "ENERGIA"1r 
3D9UB 2690 
MAK-6 

DATA ERG. JOULE t KG91, CAL, KWH, EV 
REBTORE 1040 
GOSU0 2040 

DATA l,IE-7.l.O2E-0 I 2.39E-8,2.70E-14 i 6.29E-ll 

DATA 1E+7,I,.102..2*9.2-7BE-7,6-28E-10 

DATA 9-0E+7,9.0,l. 2 . 343.2.72E-6*6.2E+19 

DATA 4. 106E+7.4.106,.42Ì3,1,I.I&E-Ò.2.6E+19 

DATA 3-6E+13.3,6E+6,3.*3E*3.0,6E+5.1,2. 3E+25 

DATA 1.39E-1*,1.39E-19,l.62E-20,3.7E-20T4-4E-26, I 

GOBUB 2880 

G09UB 2720 

BQSUB 2600 

GOBUB 27B0 

003UB 24TO 

IF K-03 THEN 1940 ELSE 270 

CALL CLEAR 

PRINT "POTENZA'*i i 

BOSUB 2690 

MAX-4 

DATA ERG/SEC,WATT,HP,CAL/0EC 
RESTURE 2030 
GOSUB 2040 

DATA I.1E-7,1.36E-IO t 2.39C-0 
DATA 1E+7.1■1.36E—3,.239 
DATA 7.35Se*-9,?33.3,l,l70 
DATA 4. 186E+-7, 4. 106,9. 62E-3,1 


2110 

2120 

2130 

i!S$ 

2160 

2170 

11% 

2200 


QOSUB 2600 
GOSUB 2700 
QDSUB 2470 

IF K-03 THEN 2110 ELSE 270 
CALL CLEAR 

PRINT “TEMPERATURE”« « 

QOSUB 2690 
MAX-3 

DATA BRADI KELVIN, GRADI CELSIUS, BRADI FAHRENHEIT 
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RESTDAE 2200 
GOSUB 2640 
GOSUB 2720 
□□SUB 2600 
PRINT A4(U1> X 
INPUT l 

PRINT _ ^ ^ 

□N U1 GOTO 2290.2330,2400 

IP U2®3 THEN 2320 

R-M-273.I 

GOTO 2440 

R-X-273, 1 

R- (9/3) *A+32 

GOTO 2440 

IF U2*l THEN 2360 

R-C9/3)*X*32 

GOTO 2440 

R-X+273. 1 

GOTO 2440 

1F U2-1 THEN 2430 

R-(3/91 *(K-32> 

GOTO 2440 

R«(5/9)MX-32>+273. 1 
PRINT u |A4(U2)JR 
GOSUB 2470 

IF K-S3 THEN 2230 ELSE 270 
PRINT tilt 

CALL HCHAR(22.3,126.28) 

PRINT " - VUOI CONTINUARE? (S/N) -■ 

CALL KEY(O.K.S) 

IF S-0 THEN 2300 

IF (K< >7Q)•<K< >63)THEN 2300 

CALL CLEAR 

RETURN 

CALL KETCO.K.B* 

IF 9-0 THEN 2330 
K-K-40 

IF (K<1)+ IIONAX)THEN 2330 
RETURN 

PRINT “SCEGLI L'UNITA* DI MISURA" 

PRINT "NELLA QUALE E' ESPRESSA LA"|“GRANDEZZA.. . 

GOSUB 2330 

Ul-K 

PRINT " ...E L'UNITA* DI MISURA" 

PRINT "rCLLA DUALE DEVE ES9CRE"i"CONVERTITA.“il 

GOSUB 2330 

U2-K 

RETURN 

CALL HCHAR(24,3,128,28) 

PRINT aia 
RETURN 

PRINT “UNITA* DI MISURA"!a 

POR I-I TO MAX 

PRINT 9TR4CI)|“. "|A*U> 

NEXT I 

PRINT 

RETURN 

PRINT A4(Ul)| 

INPUT X 
PRINT 

R-INT ( lOOO«X#C (U1.U2) )/I000 
PRINT -- "IA4(U2)IR 
RETURN 

FOR I-l TO MAX 
READ A4(I> 

NEXT I 
RETURN 

FOR 1-1 TO MX 
FOR J-l TO MAX 
READ C(I,J> 

NEXT J 
NEXT I 
RETURN 


Di tulli i programmi del libro questo presenta una struttura meno diffe¬ 
renziata nelle sue parti. Per questa ragione sari sufridente esaminare in 
dettaglio una sola sezione del programma. Prendiamo ad esempio quella 
che convene le unità di misura delle lunghezze; la troviamo alle righe 
660-760. 

Dopo il sottotitolo LUNGHEZZA, l'Istruzione GOSUB di linea 680 ri- 
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chiama la routine per tracciare una linea orizzontale ed uno spazio. 
L’istruzione DATA contiene le unità di misura che possono essere con* 
venite una nell'altra, il loro numero è posto in MAX (linea 610). II sot- 
ìoprogramma 2840 legge i sette dati e li carica nel vettore AA(I). 

Le righe 630-690 contengono la tabella dei coefficienti per le conversio¬ 
ni; essa viene memorizzata nella matrice bidimensionale Ctl.J) tramite il 
sottoprogramma 2880. 

La routine 2720 stampa sul video le unità di misura, mentre la 2600 rice¬ 
ve i dati in input; l'unità nella quale è espressa la misura è associata alla 
variabile U1, quella nella quale deve essere convertita è associata alla va¬ 
riabile U2. Ancora una routine, la Z7B0, chiede la misura X da converti¬ 
re dopo aver stampato l'unità Aà (UH e calcola il risultato moltiplican¬ 
do X per il coefficiente C(U1,U2) e lo stampa. 

La GOSUB di riga 740 provoca l'apparizione della richiesta se si vuole 
continuare con lo stesso tipo di conversioni; in caso affermativo si rima¬ 
ne nella stessa sezione con una nuova richiesta di dati in input, altrimen¬ 
ti si ritorna al menù principale. 

Come si vede, ogni pane del programma contiene essenzialmente la ta¬ 
bella delle unità e quella dei coefficienti di conversione, tutto il resto t 
svolto da una serie di routine. 11 risparmio di memoria è evidente. 

11 programma occupa 6.6 Kbyte. 



_ CAPITOLO SETTI 

Tra 1’utile e il dilettevole 


Dopo tanti programmi di matematica, alcuni dei quali di una certa com¬ 
plessiti, un po’ di distensione. Il TI 99/4A oltre ad essere un buon com¬ 
puter per risolvere problemi scientifici ha delle prerogative che lo rendo¬ 
no adatto ad una grande varietà di applicazioni che questo libro, per le 
sue finalità, non ha potuto prendere in considerazione. 

Vogliamo sopperire almeno in parte con i programmi presentati in 
quest'ultimo capitolo. 

Ci sono almeno due caratteristiche che Tino ad ora non abbiamo utiliz¬ 
zato: la capacità di generare suoni e la possibilità di memorizzare dati su 
un nastro magnetico per richiamarli in seguito a seconda della necessità. 
La musica non era ancora stata inserita per non ampliare troppo i pro¬ 
grammi e non rallentare la loro esecuzione; per di più, nella maggior 
parte dei casi sarebbe stata del tutto fuori luogo. 

Nei programmi che seguono, alcuni motivetti rendono più piacevole la 
presentazione o costituiscono una sorta di premio dopo una serie di ri¬ 
sposte esatte. 

Un programma utilizza file sequenziali su nastro. Poiché i comuni pro¬ 
grammi che memorizzano indirizzi e numeri telefonici si rivelano inutili 
al Iato pratico in quanto non permettono un accesso diretto ai record, si 
i scelta un’applicazione originale che costituisce un supporto ad un gio¬ 
co molto diffuso: quello degli scacchi. Il programma permette la costitu¬ 
zione di un archivio di aperture o di intere partite che vengono poi ri¬ 
prodotte su una scacchiera che appare sul video accompagnata anche 
dalla notazione scritta delle mosse. 




TUA l'utile e il DILETTEVOLE 


187 


Bisogna ricordare che la capacità di memorizzare dati sotto forma di re¬ 
cord è uno dei motivi essenziali che hanno portato alla creazione degli 
elaboratori. 

L’ultimo programma è un accenno ad un campo applicativo che va sotto 
il nome ambizioso di intelligenza artificiale. 

11 computer, partendo da una situazione reale, può indagare gli sviluppi 
futuri dovuti al cambiamento di alcuni parametri; se opportunamente 
programmato può acquisire una strategia vincente e competere alla pari 
con l’uomo in molti giochi. 

Passiamo ora ai programmi. 


atti d’Italia 

L’argomento, come fa presagire il titolo, é di natura geografica anche se 
dalla geografia prende a prestito solo elementi di tipo mnemonico. Pur 
essendo sorto ceni aspetti di tipo educativo, il programma é semplice- 
mente un gioco presentato sotto forma di quiz. 

Si tratta di indovinare il nome delle città che appaiono casualmente su 
una canina “muta” d’Italia. Possono giocare fino a cinque concorrenti 
a ciascuno dei quali vengono rivolte 10 domande. Un totalizzatore delle 
risposte esatte tiene aggiornata la situazione. 

Eccome come appare il programma in esecuzione. 


RUN 


CONCORRENTE B 


SCRIVI IL NOME 


DELLA CITTA' 


ROMA 

<ENTER> 

ESATTO 


• 


CONCORRENTI : AB 


PUNTI I IO 0 



Il programma si presta facilmente ad essere cambiato perché le domande 
riguardino anche altre città, oltre le 20 già memorizzate, o addirittura al- 
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860 CALI, HCHAfM7,6,96) t • I 
070 CALL HCHARC7,9,96-2»i 
880 CALL HCHAR(8,8.114):■ 

090 CALL HCHARC0,l5,116)l 
900 CALL HCHARt9,13.110)• 

910 CALL MCHARflO, il,96. 2 

920 CALL HCHAR (11,11, 121) ■ i unuu riunii Lni.L. nbnnn 111 , n. Alai 

930 COLL WHARC12.il, 114)11 CALL HCHAR ( 12, 12. 12l > « I CALL HCHAR(12,13,96,3) 
940 CALL HCHAR<12,16.130)11 CALL HCHARC13,6.125): ! CALL HCHARC13,7.126) 

930 CALL HCH0RU3;B. 127) ( c CALL HCHOR < 13, 12, 122> : ■ CALL HCHARC 13, 13. 123) 
960 CALL HCHAR(13,14,96,3)11 CALL HCHAR(13,17,10O)i■ CALL HCHARC13.10,131> 
970 CALL HCHAR(14,6.128)Il CALL HCHAR(14,7.96): I CALL HCHAR(14,B,1291 
9B0 CALL HCHAR(14,14,124)l: CALL HCHAR(14. lS. 132)■ ■ CALL HCHARCI*.16.96) 
990 CALL HCHAR(14’17,34)l■ CALL HCHARC14.le,133)lI CALL HCHOR(14,19. 118) 
1000 CALL HCHAR(13,6.142)Il CALL HCHAR(l5, 7,96>ll CALL HCHARC15,8,143) 

1010 COLL HCHAR (13,15,134) Il CALL HCHAR(l5,16.I33)I1 CALL HCHAR ( l5, 17, 136) 
1020 CALL HCHAR(13,19,137) 

1030 CALL HCHAR(16,6,33)iI CALL HCHAR(16.7,34)l l CALL HCHAR(16,8,33) 

1040 CALL HCHAR(16.16,110)1 : CALL HCHAR(16,17,96) 

1030 CALL HCHAR(17,16,136)11 CALL HCHAR(17,17.139) 

1060 CALL HCHAR (1B, 12,36)11 COLL HCHAR ( 1B, 13, 37) t ■ CALL HCHAR 11B, 14,98) 
1070 CALL HCHAR! 18, 13,38) : : CALL HCHAR ( 18,1 6,140); I CALL HCHAR < 18,17,141 > 
1080 CALL HCMARU9, 12, 123)ll CALL HCHAR ( 19, 13, 121) I 1 CALL HCHAR ( 19, 14,96) 
1090 CALL HCHAR(19,13,111)11 CALL HCHAR(20.13,122) 

IlOO CALL HCHAR(20, 14,1231Il CALL HCHAR(20,13, 39) 

1110 OrSPLAV AT(6,16)i"CITTA"[CHR4<47>l: DISPLAY AT(B,16)I"ITALIANE" 

1120 CALL SOUND(130,639,2) 

1130 CALL SOUND! 130,387.2) 

1140 CALL SOUND(300,323,2) 


1140 CALL SOUND(300,323,2) 

1130 CALL SOUND(300,440,2) 

1160 COLL SOUND(300,69B,2,440.3) 

(170 CALL SOUND(300,784,2,387,3) 

UBO CALL SOUND (130, 698, 2, 392,3) 

1190 CALL SOUND(130,639.2) 

1200 CALL SOUND (1006,698, 2, 440,31 
1210 DIR A4(20,3) 

1220 DATA ROMA, 86, B6,hILANO. 38,36. TORINO,42,40, VENEZIA. 39,86. BOLOGNA,30, 74 

1230 DATA TRIESTE.36,93.NAPOLI,100^103,PhLERHO,139.96,CABLIARI,120,30 

1240 DATA GENOVA.5o,SI,PERU8IA.71.83.ANCONA,63,96,BARI,93.129 

1230 DATA PISA,62.64,AOSTA,33,37.BOLZANO,23,75,TARANTO,103,132 

1260 DATA PADOVA,39, 80,FIRENZE, 62, 74, TRENT0,29,72 

1270 FOR 1-1 TO 20 I! READ «4<1,15,ft5<1,2) , A4<J,3)«l NEXT I 

12B0 DISPLAY AT(22,2)I"OUANTI CONCORRENTI? * 

1290 DISPLAY AT(24,3)i" ( AL HABSIDO 5 )" 

1300 ACCEPT AT (24,24) BEEP VALI DATE (DIGIT) ll4 
1310 IF N<1 OR N>3 THEN 1300 
1320 CALL HCHAR(22,1,32,32) 

1330 CALL HCHAR(24,1,32,32) 

1340 FOR J-l TO N ■■ P(J)-0 II NEXT 3 

1330 DISPLAY AT(22.2)1“CONCORRER!11 " ■: DISPLAY AT(24,B):"PUNT11 " 

1360 FOR K-l TO N il DISPLAY AT(22,13*3*K)■CHR4(64+K) 

1370 DISPLAY AT (24,12+3*10 i UBINO “M“iP<K)ii WKT K 
13B0 CALL HCHAR (6, >6, 32, 14) 

1390 RANDOflIZE 
1400 FOR 1-1 TO N 

1410 DISPLAY AT 11,7) BEEPl "CONCORRENTE:- Il DISPLAY AT <1,19)1 CHR4 (64-1-1 ) 

1420 DISPLAY AT(3,14)1"SCRIVI IL NONE" 

1430 DISPLAY AT(6,14)l"DELLA CITTA"ICHR4(47) 

1440 CALL HCHAR(9,16.93,11) 

1430 CALL APRI TE(#1,43,2,80, 120) 

1460 FOR K-l TO 10 
1470 R-INT(20»RND)'»1 
1400 X-VAL<A4(R,2)> 

1490 Y»VAL(A4(R,3>> 

1300 CALL LOCATE (4 1,X,Y) 

13)0 ACCEPT AT <B,14)DEEP VALI DATE(UALPHA)IRI9P4 
1320 IF RI9P4< >A4(R,1)THEN 1360 
1330 DI9PLAY ATI12,19)1"ESATTO" 

1340 P(I)-P(I>-»1 
ISSO GOTO 1570 

1360 DISPLAY AT(12,19)f"SBAGLIATO” 

1370 DISPLAY AT124,12*3*1)BEEP SIZE(2)•UBINO "4«"|P(I> 

iseo for t»i to 5o6 n next t 

1390 CALL HCHAR(B,16,32,14)lI CALL HCHAR(12,18,32,12) 

1600 NEXT K 

1610 CALL SOUND(223,784. 2) 

1620 CALL SOUND (130, 639, 2) 

1630 CALL S0UND(3OO;740;2) 

1640 CALL SOUND(300,397,2) 

1630 CALL SOUND(300,494,2) 

1660 CALL SOUND(300.784,2) 

1670 CALL SOUND!1000,639,2) 

1660 CALL SOUND(300,587,5) 

1690 CALL SOUND(300,587,2) 

1700 CALL SOUND(300,587,2) 

1710 NEXT 1 
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1/20 DISPLAY ATU.llBEEP:”* VUOI CONTINUARE?" 

1730 ACCEPT AT ( I .22) VAL IDATE (UALPHA) : RR9 
1740 IF SEG»(RR*,1,THEN 1800 
1750 DISPLAY ATlÈ.Uls" FINE" 

1760 FOR T«1 TO 1000 :: NEXT T 
1770 CALL DELSPRITE(«1I 
1700 CALL DELSPRITE(*1> 

1790 CALL CLEAR : : STDP 
IBOO DISPLAY ATtl.ll:* - 

1810 FOR RIGA-4 TO 9 ss DISPLAY AT(RIGA,14)I" * : 
1020 DISPLAY ATIPIA):" " 

1030 FOR R1GA-22 TO 24 STEP 2 : : DISPLAY AT(RIGA, 
1840 CALL DELSPRITE(tl) 

1050 GOTO 1200 
1860 END 


: NEXT RIGA 

1)8" ' :s NEXT RIGA 


Alle righe 200-760 sono definii! i caratteri grafici per disegnare la cani¬ 
na d’Italia ad alta risoluzione. L’Extcnded Basic non può utilizzare i ca¬ 
ratteri degli ultimi due sottoinsiemi numerici, il 15 ed il 16. Dato l’eleva¬ 
to numero di caratteri necessari si 4 dovuto ridefinire molti caratteri 

ASCD. 

Tutte le istruzioni CALL HCHAR dalla 800 alla 1100, servono a disegna¬ 
re l'Italia. Seguono il titolo e alcune note di accompagnamento. Le 
istruzioni DATA alle righi 1220-1260 contengono i nomi delle città e le 
loro coordinate video in pixel; tutti questi elementi vengono memorizzati 
nella matrice A$. N 4 il numero dei concorrenti (riga 1300); essi vengono 
denominati con le lettere delTalfabcto, A, B, C, D, E, e, in successione, 
sono invitali a rispondere alla riga 1410. 

Lo sprìtc di riga 1450 4 il tondino che rappresenta la città; in base alla 
funzione RND viene posto nel punto video di coordinale X,Y (linea 
1600). Se la risposta RISP$ 4 esatta viene incrementato il contatore PII) 
con l’istruzione 1540 e compare il messaggio ESATTO. 

Nulla impedisce che nel corso delle died domande debba ripetersi la 
stessa città due o più volte, la loro scelta 4 casuale e non vengono me¬ 
morizzale le domande già fané. 

Quando un concorrente ha terminalo viene eseguita la musica con le 
istruzioni 1610-1700. 

Se si ricomincia, 4 necessario azzerare il contatore PO); l'operazione 4 
svolta alla riga 1340. 


Archivio scacchistico 

Chiariamo subito che il programma non consente di giocare a scacchi 
(esiste a questo scopo un modulo Solid State della Texas Instruments) 
ma consone di memorizzare partite come quelle che vengono pubblicate 
in alcune riviste e nei manuali specializzati. Le partite vengono conserva¬ 
te sotto forma di file sul nastro magnetico ed in seguito possono essere 
richiamale ed eseguile sulla scacchiera che appare sul video. 

Il programma si divide io due pani: una per registrare una panila, 
un’altra per richiamarla ed eseguirla. 
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La prima sezione comprende anche le istruzioni per inserire correttamen¬ 
te i dati, tuttavia, poiché una loro errata trascrizione può compromettere 
il funzionamento del programma, é preferibile seguire con attenzione le 
seguenti indicazioni. 

I primi dati consistono nei nomi dei giocatori, nel luogo e nella data in 
cui si è svolta la partita ed infine nel tipo di apertura. Luogo e data for¬ 
mano un'unica stringa e non devono essere separate da una virgola per¬ 
ché questo segno di interpunzione serve a separare piti variabili in input. 
Tutti i dati sopra menzionati formano il primo record del file, i record 
successivi contengono le mosse che formano la partita. Ogni mossa com¬ 
pleta occupa una stringa di 12 caratteri, i primi 6 per la mossa del bian¬ 
co, gli ultimi 6 per la mossa del nero. Ogni record riunisce quattro mos¬ 
se complete e comprende pertanto quattro stringhe di 12 caratteri ciascu¬ 
na. 



Per il lettore riveste maggior interesse la trascrizione delle mosse. Il nu¬ 
mero progressivo appare automaticamente e non deve essere trascritto; 
bisogna invece indicare necessariamente il pezzo bianco che muove (sem¬ 
pre con lettere maiuscole) usando i simboli convenzionali: P = pedone, 
C = cavallo, A = al(iere, T = torre, D = dama, R=re. 11 secondo ed il terzo 
carattere contengono le coordinale della casa di partenza mentre il quar¬ 
to ed il quinto carattere si riferiscono alla casa di arrivo. Il sesto caratte¬ 
re é normalmente un trattino ma può essere il segno ’* + ” per indicare 
uno scacco al re, il segno per indicare la cattura di un pezzo, il se¬ 
gno "I” per indicare un’ottima mossa, il segno per la presa en 
passoni, e ancora " = ” per lo scacco matto; se c’é la promozione di un 
pezzo questo stesso sesto carattere deve essere necessariamente il simbolo 
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di un pezzo: C, A, T, D. Ovviamente non si può ottenere un re con la 
promozione. Per le mosse del nero valgono le stesse regole relativamente 
ai caratteri dal settimo al dodicesimo. 

Quando termina la trascrizione delle mosse è indispensabile che il dodi¬ 
cesimo carattere della stringa sia un punto perché cosi il computer rico¬ 
nosce che la partila i finita. 

Resta ancora da definire l'aiTocco; si usino i seguenti simboli: -0-0- 
per l’arrocco cono e 0-0-0 per quello lungo, occupando i primi cinque 
caratteri di ogni semistringa. 

Come si vede la notazione scritta delle mosse é quasi uguale a quella 
convenzionale, solo che quest'ultima é generalmente usata in una forma 
semplificata. 

Un esempio concreto chiariti ulteriormente come avviene l’introduzione 
dei dati. 

Quello che segue é il classico scacco matto di Léga). 


1. e4, e5; 

2. CO. Cc6; 

3. Ac4, d6; 

4. Cc3, Ag4; 

5. C:e5, A:Ddl; 

6. A:f7 + , Re7; 

7. Cc3-d5«= 


PE2E4-PE7B- 
CG1F3-CB8C6- 
AF1C4-PD7D6- 
CB1C3-AC8G4- 
CF3E5: AG4D1 : 
AC4F7 + HEBE7- 
CC305= MATTO 


Come si vede si può inserire anche un commento, infatti il computer ve¬ 
dendo il punto al sesto posto della semisuinga non eseguirà alcuna mos¬ 
sa per il nero. 

Ecco ora il listato del programma; esso occupa 6.6 Kbyte di memoria. 


too 

uo 

120 

130 

no 

150 

160 

170 

tao 

190 

200 

210 

220 

230 

2*0 

250 

260 

270 

2BO 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 


ARCHIVIO 

SCACCHISTICO 


RED 
REM 
REM 
REH 
REM 
REM 

REH dii S#rqio Bortam 
REH v»r*iont: TI BASIC 
CALL CLEAR 
DIH A*<lOO) 

PRINT TAB(11)4"ARCHIVIO”c; 

PRINT TAB (9) l'SCACCHrSTICO ":j i ::s: 
PRINT -PREMI:-*: s 

PRINT -1.5 REGISTRARE UNA PARTITA":: 
PRINT "2.: RICHIAMARE UNA PARTITA": : 
PRINT -3.: STOP"::s: 

INPUT -SCELTA? - eS* 

IF S»-'*!" TKEN 320 
IF St»"2" THEN 770 
1F S<«"3 - THEN 2790 
GOTO 260 
REH *** SAVE 
CALL CLEAR 

PRINT " REGISTRARE UNA PARTITA":::: 
PRINT "SCRIVI I NONI DEI 6I0CATQRI" 
INPUT "BILICO Gl * 

INPUT "NERO -:G2* 

PRINT 

PRINT "LUOGO E DATA" 
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3*0 INPUT LO* 

400 PRINT 

410 INPUT "APERTURA! 
420 PRINT 
430 N-0 
440 PRINT 
430 PRINT 


’l APS 


"SCRIVI LE MOSSE UNA AD UNA” 

“EB.c PE2E4-PC7C5-"•a 
460 PRINT "PER FINIRE TERMINA CON UN PUNTO"!l 
470 PRINT "AL PASSAGGIOi X'n 
400 PRINT "PROMOZIONE! D,T, A. OPPURE C"ii 
490 PRINT "ARROCCO! -0-0- OPPURE 0-0-0"is 
300 PRINT TAB<9)|" 

310 N-N+l - 

520 IF N<101 THEN 360 
330 PRINT "* MEMORY FULL" 

340 CALL SOLWD<1000,440,2) 

550 GOTO 1BO 

360 PRINT TAB(6-LEN(STRS(N)))iSTR*(N)| ,, .“| 

370 II#>UT AS<N) 

500 CAuL MCHAR<23,9.32) 

390 IF LEN(AS<N)>-12 THEN 620 
600 PRINT "ERRORE! RIPROVA" 

610 GOTO 360 

620 IF SEGt<AS<N>,12,!>-"." THEN 640 
630 BO’O 310 
640 CALL CLEAR 

630 INPUT "VUOI REGIBTRARE? <S/N> "sRSS 
660 IF BEGSCRSS,1,I>-"S" THEN 680 
670 GOTO 320 

680 OPEN *lz "CSI", SEGUENTI AL, OUTPUT, INTERNALA IXED 
690 K— 1 

700 PRINT SliGlSCGZSILDSlAPS 

710 PRINT RI? ASCIO lASOC+U | AS <K+2> I AS<k>3) 

720 K-K*4 

730 IF K>N THEN 730 
740 GOTO 710 


730 

760 


gfe?i E iSè 


770 CALL CLEAR 

7B0 RES-"081C087F493E1C00" 

790 DAS--000049497F7F3E00" 

BOO ALS--0008I8323E087FOO- 
Sto CAS- n 107C7E0E1E0C3E0O" 

020 TOS»"002A3E1C1CIC3E00" 

B30 PES-"00000808001C3EOO* 

840 CALL CHAR(120,RES> 

930 CALL CHAR<129,DAS) 

060 CALL CHAR<130,ALS) 

070 CALL CHAR <131,CAS ) 

080 CALL CHAR<132,TOSI 
B90 CALL CHAR<133,PESI 
900 CALL CHAR(134,"0"> 

910 CALL CHAR<136,RES) 

920 CALL CHAR<137,DAS) 

930 CALL CHAR<130,ALS) 

940 CALL CHAR<139,CAS) 

930 CALL CHAR(140,TOS) 

960 CALL CHAR <141,PES) 

970 CALL CHAR<144,RES) 

980 CALL CHAR<143,DAS) 

990 CALL CHAR<146.ALS) 

100O CALL CHAR <14/,CAS> 

1010 CALL CHAR(148,TOS) 

1020 CALL CHAR<149,PES> 

1030 CALL CHAR<132,RES) 

1040 CALL CHAR<133,DAS) 

1050 CALL CHAR(154,ALS) 

1060 CALL CHAR<133,CAS> 

1070 CALL CHAR<156,TOS) 

1080 CALL CHAR<137,PESI 
1090 CALL CHAR<150."0") 

ItOO CALL CHAR(34,"OOOOOOOOOOOOOOFF") 

1110 CALL CHAR(36,"OtOlOlOlOlOlOlOl") 

1120 CALL CHAR<64,"8000808000808080”) 

1130 CALL CHAR <38 ,"FF") 

1140 CALL COLOR( 13 ,16,6) 

1130 CALL COLOR<14,16.I1) 

1160 CALL COLOR<13,2,6) 

1170 CALL COLORI 16,2,il) 

UBO YY < 1 ) —129 
1190 YY <2)■132 
1200 YY < 3) — 130 
1210 YY<4)-131 
1220 REM *** OLD *»# 

1230 OPEN SI I"C91",INPUT ,SEQUENTIAL,INTERNAL,FIMED 
1240 K-t 

1230 INPUT Sla BIS,GZS,LDS,APS 
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IW*UT *1 : 0*<K> , A» <K*1 > ,0*(K*2I ,«*(K*S> 
FQft J-K TO K*3 

IF SEQ«(A«<J),12,1»«*.* THEN 1320 
fCKT J 

CALL CLEAR 

PRINT TAB<I4-LEN<LD*>/2>|LD»J1 
PRINT TAB<14-LEN<AP»)/2>1AP»|s:s; 

PR1NT TAB(3);G2fu i timi k 

PRINT TAB(3)161»:t 9 

PRINT « * Pf?Em UN TASTO *“ 

CALL HCHAR ( 10, 3,34,8 > 

CALL VCHAR <11-4,36, B) 

CALL VCHARdl, 13,64.8) 

CALL HCRAR< 19.3. 38.0) 

DATA 136.147,134,1*3,132,146,135,140 
RESTOSE 1430 
FOR J-i TO 8 
READ PEZZO 

CALL HCMAR(U,4+J V PEZZO) 

PCXT J 

FOR J-l TO 0 STEP 2 
CALL HCHAR (12,4+J, 149) 

CALL HCHARC12,3«-J, 137) 

NEXT J 
0-12 

FDR RIGA-13 TO 16 

FOR J-l TO 0 STEP 2 

CALL HCHAR<RIGA,4+J,146+0) 

CALL HCHAR(RIGA,5+J,146-Q> 

KCXT J 
0—0 

KCKT RIGA 

FOR J-l TO 0 STEP 2 
CALL HCHAR<17,4+J, 141) 

CALL HCHAR ( 17, 3*J, 133) 

XCXT J 

DATA 132.139,130,137, 120* 130,131,140 
NESTORE 1630 
FOR J-l TO 0 
READ PEZZO 

CALL HCHAR(10,4+J,PEZZO) 

NEXT J 
N—O 

CALL KEY<0.KEY.STATU9> 

IF 9TATU9-Ò THEN 1720 
N-N+l 

REM STAMPA RIGA 

FOR RIGA-20 TO 9 6TEP -1 
Rie»-STR»<N)6" "6A*(W) 

IF kKl TY&i 1870 
FOR J-l TO LEN<RIG») 

L-ASC<SEG» <RI6»,J. 1)) 

CALL HCHAR(RIGA,14+J,L> 

NEXT J 

NEXT^IQA 
REM MOSSA 

n-i 

IF M—1 THEN 1900 
PI-7 

MOSSA»—9ES* (A4IN) .Pl,6> 

IF SEB*(MOSSA»,1,5>---O~0-" THEN 2230 
IF SCO» <MOSSA»,1,3)-"O—0-0" THEN 2360 
IF 5EG»(MOSSA». 6.1>■"•* THEN 2740 
RI*19-VAL (SEB*(MÒSSA».3.1)) 

C1 -ASC (SE0* (POSSA».2.1 ) J-60 
R2-19-VAL(SEB»(M09SAÌ.3,1>) 

C2-ASC(SEB*( fOSSA»,4,!>\-60 
CALL GCHAR(Ri,C1 ,PX) 

IF PX>M«3*130 THEN 2060 
VECCHI0-134 

IF (R2*C2>/2-lNT(<R2-*C2>/2>n«N 2040 

PEZZO-PX 

GOTO 2110 

PEZZO-PX+0 

BOTO 2110 

VECCHI0-130 

IF (R2*C2)/2-INT((R2*C2)/2>THEN 2100 

PEZZO-PX-0 

BOTO 2110 

PEZZO-PX 

CALL hCHAR(Rt,CINVECCHIO) 
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2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2230 
2? 90 
2300 
2310 
2320 
2330 
2340 
2330 
2360 
2370 
2300 
2390 
2400 
2410 
2420 
2430 
2440 
2430 
2460 
2470 
2400 
2490 
2300 
2510 
2520 
2330 
2540 
2330 
2360 
2370 
2390 
2390 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
7600 
2690 
2700 
2710 
2720 
2730 
2740 
2730 
2760 
2770 
2700 
2790 
2000 


CALL HCHAR(R2.C2,PEZZO) 

FF 4"9EG6< *09SA4, b . I> 

IF FF*-"7.r THEN 2400 
PRO" 1 

1F FF4- M D" THEN 2600 
PRO-2 

IF FFt-"T“ THEN 2600 
PRO* 3 

IF FF**-*" THEN 2600 
PRO-4 

IF FFf-"C- THEN 2600 
IF N-t THEN 1090 ELSE 1720 
REM «•* ARROCCO 
IF n*l THEN 2310 
CALL HCHARU 1, 12, 134> 

CALL HCHARU 1, 10, 140) 

CALL HCHARU 1,9, 130) 

CALL HCHARU 1, 11, 132) 

HCHARC10,9,134 

hchar( ie,i1,i : 


GOTO . 

CALL HCHARCI8,9,134> 

CALL HCHAR(10,il,120) 

CALL HCHARC10,12,139) 

CALL HCHAR <19,10,140) 

GOTO 2230 
IF H-l THEN 2420 
CALL HCHAR(11,9,138) 

CALL HCHAR<11,7,132) 

CALL HCHARU 1,3, 13B) 

CALL HCHAR<I1,0,140) 

GOTO 2230 

CALL HCHAR(18,9,134) 

CALL HCHAR<10,7,129) 

CALL HCHAR(10,3,134) 

CALL HCHARU0,8, 140) 

GOTO 2230 

REM •»« AL PASSAGGIO 
IF H-l THEN 2340 

IF (R2*C2)/2-INT( (R2*C2>/2) T«N 2320 
CALL HCHAR(13,C2,150) 

GOTO 2230 

CALL HCHAR(13,C2.134) 

GOTO 2230 

IF <R2*C2>/2*1NT((R2+C2)/2)THEN 2370 
CALL HCHAR(14,C2,130) 

GOTO 2230 

CALL HCHARU4,C2,134) 

GOTO 2230 

REM #** PROMOZIONE 

ORO*(R2*C2 )/2 

IF ORO"INT(ORO)THEN 2670 

IF 11*1 THEN 2630 

PEZZO"YY (PRO) -M6 

GOTO 2710 

PEZZO-YV(PRO) 

GOTO 2710 

IF M-i THEN 2700 

PEZZ0-YY<PR0>*24 

GOTO 2710 

PEZZ0-YV<PR0>*8 

CALL HCHAR<R2,C2,PEZZO) 

GOTO 2230 

REM *** FINE PARTITA ♦*« 

CALL HCHAR<23.1-32.64) 

PRINT “VUOI RIvtOE^E LA STES9A" 

INPUT -PARTITA? <9/N> "iRIS* 

IF SEGKRISt, 1,1>»"S H THEN 1330 
GOTO 190 
CALL CLEAR 
END 


Alla lioea 190 viene dimensionata la matrice unidimensionale M, ogni 
suo elemento contiene una mossa. Con Pis inizio ne 360 si inizia ad intro¬ 
durre i dati relativi ad una panila; alcuni messaggi guidano Pulente in 
questa fase. L’istruzione 660 stampa i numeri progressivi; la funzione 
TAB fa in modo che risultino Incolonnati a destra. Le stringhe che defi¬ 
niscono le mosse devono risultare necessariamente lunghe 12 caratteri al¬ 
trimenti la linea 590 rileva un errore; se la stringa termina con un punto 
l'istruzione 820 fa passare alla fase di registrazione. 
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Il file viene apeno alla siringa 680 ed ogni record contiene un blocco di 
4 stringhe. 

Alla riga 770 inizia la sezione per il richiamo e l’esecuzione di una parti¬ 
ta. Tutti i caratteri grafici definiti alle linee 780-1170 servono a disegna¬ 
re la scacchiera ed i pezzi; ricordiamo che lo stesso pezzo su casa bianca 
e su casa nera deve essere definito con due diversi caratteri. Le variabili 
con indice YY alle righe 1180-1210 serviranno in seguito per la promo¬ 
zione di un pedone. L'istruzione OPEN apre il file per la lettura dei dati 
precedentemente registrati; quando appare la scrìtta REWIND CASSET¬ 
TE TAPE bisogna posizionare il nastro esattamente dove si sa essere regi¬ 
strata proprio la partila che si vuole rivedere. Dopo che la partita è ri¬ 
tornata nella memoria centrale ogni record viene scisso nelle quattro 
stringhe ed ogni stringa nelle due semistrìnghe (istruzione 1900). La pri¬ 
ma cosa che viene valutata è se la mossa è un arrocco o se la semistringa 
contiene il punto Tinaie che indica il termine della partita (linee 1910- 
1930). Le istruzioni 1940-1970 decodificano le coordinate di ogni mossa 
trasformandole in numeri di riga e di colonna. 

RI e CI si riferiscono alla casa di partenza mentre R2 e C2 a quella di 
arrivo. L’istruzione CALL GCHAR 1980 riconosce il carattere posto in 
RI e CI e pone il suo numero di codice in PX. Il numero di carattere re¬ 
sterà invariato dopo lo spostamento se resterà invariato il colore della 
casella ma dovrà variare al variare di quello. 

Il computer sa se una casa è chiara o scura sommando il numero di riga 
con il numero di colonna, se la somma è pari la casa £ chiara, se è di¬ 
spari ( scura. 

Da 2140 a 2220 c’è il controllo di una eventuale presa a) passaggio o sul¬ 
la promozione di un pedone per le quali si rimanda alle rispettive routi¬ 
ne che occupano l’ultima parte del listato. 

É stata introdotta la variabile M per far ripetere il ciclo due volte, una 
per la semistringa di sinistra (mossa del bianco) ed una per quella di de¬ 
stra (mossa del nero); M infatti rappresenta il punto dal quale la funzio¬ 
ne SEG$ di linea 1900 inizia la lettura della stringa. 


Memory 

É la versione computerizzala di un gioco conosciuto da molti che mette 
alla prova le capacità di memoria visiva. 

Un certo numero di tessere, nel nostro caso 20, portano impresse su una 
faccia dei disegni che si ripetono a formare delle coppie. Le tessere ven¬ 
gono mescolale e disposte capovolte; i due giocatori a turno scoprono 
due carte, se portano impresso lo stesso disegno chi è di mano ha realiz¬ 
zato un punto ed il gioco resta allo stesso concorrente, altrimenti le tes¬ 
sere sono nuovamente capovolte ed il gioco passa all'avversario. Vince 
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770 NEXT RIGA 

7Q0 FOR L-l TO 3 

790 CALL HCHAR( 1. 1+L*3,64+L> 

BOO IF L-3 THEN 020 

B10 CALL HCHAR<~1*L«S,3,4B+L) 

820 NEXT L 

830 CARATT-104 

B40 RANDOHIZE 

030 J-INT(RND«20)+1 

BòO IF C<J)<>0 THEN 030 

070 C(J)-CARATT :: CARATT-CARATT+4 

000 IF CARATT<141 THEN 030 

890 CARATT-104 

900 K-INT(RND*20)+l 

910 IF C(K> <>0 ThEN 940 

920 COO-CARATT m CARATT-CARATT+4 

930 IF CARATT<14I THEN 900 ELSE 960 

940 K-K+l 

930 IF K<-20 THEN 910 ELSE K-l n GOTO 910 
960 DISPLAY AT(23,3)!"PUNTI" 

970 DISPLAY AT <23,22)t"PUNTI" 

900 Pt-0 :i P2-0 il 04-"A“ 

990 DI6PLAY AT<24.4)BEEP SIZE(4)iPl 
lOOO DI9PLAY AT(24,23)BEEPiP2 
1010 IF P1+P2-10 THEN 1610 
1020 DISPLAY AT(23,l1)SIZE(6)l“GIOCAI" 

1030 DISPLAY AT(23 t ÌB)BIZE(I)i06 

1040 ACCEPT AT(24,14)8EEP VALICATE("ABCDE1234”) 0I2E(2)lXY4 
1030 IF LEN< XY4)-2 THEN 1100 

1060 DISPLAY AT(24.11)S1ZE(i2)BEEP:“ERRORE f 
1070 FOR T-l TO 30Ò il NEXT T 
1O0O DISPLAY AT (24,9> 6 I ZE (12) • ** - 
1090 GOTO 1040 

1100 IF ASC(SEG4<XYV,1,1))<63 THEN 1060 
1110 IF ASC(5EG*(XY6,2, 1>>>32 THEN 1060 
1120 NI«ASC(SEQ4(XY9,1.1))-64 
1130 IF NI<1 OR NI>3 THEN 1060 
1 1 40 N2-VAL (SEQ4< XY4,2. 1 >) 

1130 IF N2<1 DR N2>4 THEN 1060 

1160 NN-N1+<N2-1)*3 

1170 IF B(NN>-1 THEN 1060 

11B0 IF C(NN)-104 OR CCNN)-140 THEN COLORE** n GOTO 1240 

1190 IF C<NN)■1OB DR C(NN)-116 THEN COLORE-2 ci GOTO 1240 

1200 IF C(NN>-112 OR C(WM)-l20 THEN COLDRE-9 li GOTO 1240 

1210 IF C<NN>-124 THEN COLORE-11 il GOTO 1240 

1220 IF C(NN>•!20 OR CCNN>-132 THEN C0L0RE-5 n GOTO 1240 

1230 IF C(NN>-136 THEN COLORE-13 

1240 IF SCELTA1 THEN 1260 

1230 SCELTAl-C(NN):i PRIHO-NN si GOTO 1270 
1260 IF NN-PRIHO THEN 1060 ai 9CELTA2-C(NN> 

1270 FOR R1GA-N2+3-2 TO N2«3+| it CALL HCHAR(RI0A.N1*3.97,4)« a NEXT RIGA 
1200 CALL 0PRI TE (#NN, C <NN> , COLORE, N2*40~23,Nl#40*~7) 

1290 CALL flAGN IFY (4) 

1300 IF SCELTA2-0 THEN 1040 
1310 FOR T-l TO 300 II NEXT T 
1320 IF SCELTAIOSCELTA2 THEN 1470 
1330 B<PRIMO>-I t: B(NN>-1 
- - * SCELTA1-0 n SCELTA2-0 


1370 
DTO 1300 


1340 PRIHO-O 
1350 IF THEN 

1360 Pl-Pl+1 il GOTO 
1370 P2-P2+1 
1380 CALL SOUND(130,440,2) 

1390 CALL SOUND(130,466,2) 

1400 CALL SOUND(300,323,2) 

1410 CALL 9QUND(300,440,2) 

1420 CALL SOUND(300,367.2) 

1430 CALL SOUND<300,704,2) 

1440 CALL SOUND(300,639.2) 

1430 FOR T-l TO 300 il NEXT T 
1460 CALL DELSPRITE(ALL>ai GOTO 990 
1470 VOLTE—1 

1460 IF VOLTE-l THEN 1310 
1490 CALL P08!TI0N(«NN.X1,Y1>lS VOLTE-2 
1300 CALL DELSPRITE(#NN)i: GOTO 1330 
1310 CALL POBITIDN < 6PRIMO,X1,Vl) 

1320 CALL DELSPRITE CBPRinO) 

1330 RIGA-INTC(Xl+2)/6)+l ac COLO-INT(Y1/B)+1 
1340 FOR 1-0 TO 3 

1330 CALL HCKAR(RI6A+I,COLO,96,4) 

1360 NEXT I 

1370 IF VOLTE-1 THEN 1490 

1360 PRIHO-O if SCELTA1-0 il 9CELTA2-0 

1390 IF G*-**A" THEN Gt- M D* :s GOTO 1030 

1600 04-“A- ai GOTO 1030 

1610 FOR T-l TO lOOO II NEXT T 

1620 CALL DEL9PRITE(ALL ì 
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1630 CALL SOUND(300,440,2): : CALL SOUND(130,466,2) 

1640 CALL SOUND<ISO,523,2): : CALL S0UND<130,S87,2> 

1630 CALL SOUND(130.323.2)SI CALL SOUND(300,466,2)II CALL SOUND(300,440,2) 
1660 CALL SOUND(IOOO,302,2,330,3) 

1670 FflR T« 1 TO 300 << NEXT T 
1600 CALL CLEAR :l CALL C0L0R(2,2,1) 

1690 DISPLAY AT( 12,3):-VUOI RICOMINCIARE'’ (S/N) - 
1700 CALL KEY CO,K,S) 

1710 IF K-70 OR K-IIO THEN 1760 

1720 IF K- >03 AND KOII3 THEN 1700 

1730 PRIMO-O it SCELTA!-0 :: SCELTA2«0 

1740 FOR I»1 TO 20 :: B(I)«O It C(I)-O 11 NEXT 1 

1730 CALL CLEAR il GOTO 700 

1760 DISPLAY AT(12,l3)ERA9E ALL:"FINE" 

1770 FOR T>1 TO 300 ■: NEIT T 
1790 CALL CLEAR 
1790 END 


Le istruzioni 200-340 scrivono il titolo in formato gigante utilizzando il 
carattere 42, cioè l’asterisco. Con un ddo FOR-NEXT il colore passa da 
bianco su fondo rosso a rosso su fondo bianco simulando delie luci lam¬ 
peggianti. 

Alla riga 530, A4 contiene i disegni o meglio le stringhe csadccimali che 
li definiscono, B memorizza la posizione delle tessere che non devono 
più essere chiamate perchè contengono le coppie giù scoperte, C invece 
contiene i numeri dei caratteri che costituiscono i disegni nell’ordine sta¬ 
bilito dalla funzione RND. Alle righe 570-660 si trovano le stringhe che 
definiscono i disegni; essi sono nell’ordine: pesce, Charlot, cuore, om¬ 
brello, la lettera M, casa, scacchiera, barca, albero e automobile. 

I caratteri sono numerati da 104 a 140. 

Le istruzioni 700-770 disegnano le tessere capovolte di colore rosso men¬ 
tre le righe successive scrivono le coordinate su due lati dello schermo. 
Da riga 830 a riga 960 le dieci coppie di caratteri vengono disposte ca¬ 
sualmente all’imemo del vettore C; le locazioni ove appaiono i disegni 
sono numerate sequenzialmente procedendo da sinistra a destra e dall’al¬ 
to in basso. Terminata questa operazione il computer è pronto per acco¬ 
gliere le chiamate dei concorrenti. 

Abbiamo giù detto che il programma è protetto da eventuali errori; il 
primo accorgimento è l'opzione VALIDATE, nell’ACCEPT di riga 1040, 
che accetta solo i caratteri alfanumerici spedii cali, poi Si verifica che le 
coordinale contengano effettivamente due caratteri e che la lettera prece¬ 
da il numero. 

La variabile NN (riga 1180) è un numero da 1 a 20 che si riferisce alia 
casella chiamata; l'istruzione successiva controlla che la tessere non sia 
giù scoperta, solo allora si passa alla stampa del disegno. 

Ogni giocatore deve scoprire due tessere, SCELTA1 e SCELTA2 conten¬ 
gono i numeri dei caratteri associati alle caselle chiamate. Solo se 
SCELTA1 - SCELTA2 si incrementa il punteggio del giocatore (righe 
1360-1370), si pongono uguali ad uno gli elementi del vettore B corri¬ 
spondenti alle caselle per impedire che le stesse vengano chiamate un'al¬ 
tra volta e si toglie Io sprite prima di ricominciare. Sarebbe stato forse 
più piacevole mantenere i disegni sullo schermo, tuttavia in TI Exiended 
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Basic non possono coesistere più di 4 sprìte sulla stessa riga e l’ultimo di 
questi sarebbe comunque scomparso. 


L'ultimo perde 

É il gioco dei 16 bastoncini: si tolgono a turno quanti bastoncini si desi¬ 
dera, ma solo da una delle quattro file. Perde chi resta con l’ultimo. Co¬ 
me si vede questa condizione ha dato il nome al programma; il gioco ha 
certamente una sua denominazione ma francamente non la conosciamo 
con sicurezza. 

Quest’ultimo programma vuole dimostrare come in simili applicazioni il 
computer possa non solo controllare lo svolgimento del gioco ma avere 
una sua strategia vincente. 

È la Filosofia che ha portato alla costruzione dei computqtfche giocano a 
scacchi, a dama o a backgammon. Alla base di lutto sta Wstroardinaria 
velocità di calcolo del computer. Un buon giocatore di scaditii si affida 
spesso alla intuizione ed ogni volta controlla forse una decina di sequen¬ 
ze di mosse che comprendono le proprie e quelle probabili dell’awersa- 
rio. Il computer, che non possiede alcunché di paragonabile all’intuizio- 
ne, può tuttavia controllare migliaia di varianti e valutare per ognuna di 
esse la situazione che si è venuta a creare ai termine. 

? 



Lo studio delle varianti procede generalmente per una profonditi di due 
o tre mosse, dopo di che il loro numero diventa cosi elevato da portare 
il tempo di elaborazione ad un limite non più accettabile. 

In questo programma il computer considera tutte le varianti con una 
profondili di una sola mossa, cioè esso valuta tutte le proprie mosse e 
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per ciascuna tutte le possibili risposte dell’avversario. In questo modo 
l'elaborazione risulta veloce ed il livello di gioco abbastanza buono. Poi- 
chi chi inizia, in questo caso, t svantaggiato, il computer estrae a sorte 
a chi spetta il tratto; la mossa si effettua specificando la lettera che con¬ 
traddistingue ogni fila e il numero di bastoncini che si desidera togliere. 
Se è U computer ad iniziare, la sua prima mossa è casuale, infatti non ce 
n’è una che possa dirsi migliore di un'altra. In questo gioco le mosse o 
sono vincenti o sono perdenti, non esiste una graduazione e non t neces¬ 
sario attribuire un punteggio dopo ogni possibile risposta dell’avversa¬ 
rio. Quando non sia la prima, il computer esamina ogni mossa possibile 
per Individuarne una vincente; se non la trova, ne esegue virtualmente 
una vincente; se non la trova, ne esegue virtualmente una e per essa con¬ 
sidera le possibili risposte dell'avversario. Se nessuna di queste porla 
l’avversario ad una situazione vincente allora la esegue altrimenti la 
cambia e ritorna a studiare le risposte. 

Può succedere che nessuna mossa consenta al computer di evitare la 
sconfitta ed in questo caso esegue semplicemente 1'ultima presa in consi¬ 
derazione "sperando” in un errore da pane dell'avversario. 

Per giudicare se una mossa i vincente basta esaminare i bastoncini rima¬ 
sti. Se rimane un solo bastoncino aU’awersarìo. egli ha perso; ma perde¬ 
rà certamente anche se rimane con tre bastoncini su ire file diverse. Il 
lettore può verificare per tentativi che si perde aoche con due bastoncini 
su una fila e due in un’altra o se si rimane con un bastoncino in una fi¬ 
la, due In un'altra e tre in un'altra ancora. 

Vediamo ora il listato. 


PERDE"! ! ! I 


100 REM L'ULTIMO PERDE 
110 REM •••»•••*••»*•«»*«• 

120 REH dis Svrql O Dor«*m 
130 REM vmrmi onti TI BASIC 
HO CALL CLEAR 
130 CALL CHAR ( I 20, **F " ) 

160 CALL COLOR(13.3,3) 

170 PRINT TAB(0>: ,, L , ULTlnO 
180 CALL HCHARt10,0,120,10) 

IVO CALL V/CHAR ((1,8,128, 3) 

200 CALL OCHAR <11,23, 120.3) 

210 CALL HCHARU4.0.120, 10) 

220 CALL SOUND(400,440,S) 

230 CALL SOUND(200,392,8) 

240 CALL 50UND <200,440,7) 

230 CALL SOUND 1400,387,6) 

260 CALL SOUND<200,323,3) 

270 CALL SOUND(200,307,4) 

200 CALL SOUND <400,494,3) 

290 CALL SOUND<200,440,4) 

300 CALL SOUND<200,494,3) 

310 CALL SOUND<300-392,6) 

320 CALL CHAR < 136» '’FFFFFFFFFFFFFFFF" ) 
330 CALL CHAR < 137, * , OOCOFOF8FCFCFEFE") 
340 CALL CHAR < 1 39, •‘FEFEFCFCFBFOC” > 

330 CALL CHAR < 139, ■•7F7F3F3F1F0FO3") 
360 CALL CHAR < 140, •‘00030FIF3F3F7F7F-) 
370 CALL CHAR < 144, ‘'OO30444O4O4O4430’’ ) 
300 CALL CHAR <143, “007C101010101010" > 
390 CALL COLOR < 14, 12. t) 

400 CALL COLOR(15.7.12) 

410 FF««"SCRIVI LA TUA M09SA" 

420 FR*-"LA ESEGUO? (S/N)" 

430 FTf--LA MIA MOSSA E’f 

440 REM ••• INIZ1ALIZZAZIONE *«• 


i k : 11 
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450 R < I ) • 1 
460 R(2>-3 
470 R<3>-5 
400 R<4)»7 
490 CALL CLEAR 
500 PRINT -PREMI 

510 PRINT M. PER LE SPIEGAZIONI" 

520 PRINT "2. PER GIOCARE*: :t: 

530 CALL KEY<0,K,S> 

540 IP S-C THEN 530 
550 IP K-49 THEN 590 
560 IF K-50 THEN 730 
570 GOTO 530 

580 REM SPIEGAZIONI •** 

590 CALL CLEAR 

600 PRINT -SULLO SOCRHO APPARIRANNO 

•" - -BASTONCINI DISPOSTI SU 

-LE DENOMINATE A,B,C,D."«: 

■IL 6IDCO CONSISTE TO- - 
" OLI ERE A TURNO GUANTI BA- m 
-ST0NC1NI 61 VUOLE DA UNA Fl-'t 
•PERDE CHI RESTA CON L* ULTIMO*: 
-PER MUOVERE SPECIFICARE LA" 


Ó10 PRINT 
620 PRINT 
630 PRINT 
640 PRINT 
630 PRINT 
660 PRINT 
670 PRINT 


_ 16" 
FI-* 


-LA.’ 


"ss 


GOTO 760 
PRINT_”BENE ( HAI SCELTO TESTA* 


680 PRINT -LETTERA CORRISPONDENTE ALLA- 

690 PRINT "RIGA E IL NUMERO DI BA9TON-":"CINI.* 

700 PRINT -IL SORTEGGIO STABILISCE CHI DEVE GIOCARE.' 
710 GOSUB 2210 
720 GOTO 490 
730 CALL CLEAR 

740 PRINT "SORTEGGIAMO CHI DEVE INIZIA-"!-RE.“ti 
750 PRINT -SCEGLI TESTA O CROCE? <T/C) M 
760 CALL K£Y(O.KK t S) 

770 IF S-0 THEN 760 
780 IF KK«B4 THEN 010 
790 IF KK-67 THEN 830 
BOO GOTO 760 

aio :z 

020 GOTO 040 

830 PRINT "BENE, HAI SCELTO CROCE" 

040 PRINT s iti::: i : i 
850 BANDONIZE 
860 S0RTE-INT(RND*10)4-1 
B70 CALL HCHAR<10,15,140) 

080 CALL HCHAR<18,16 V 136) 

090 CALL HCHAR(18,17,137) 

900 CALL HCHAR(19,15,136.3) 

910 CALL HCHAR(20,15,139J 
920 CALL HCHAR(20,16, 136) 

930 CALL HCHAR(20,17,138> 

940 FDR 1-1 TO 10 
950 CALL HCHAR(19,16,145) 

960 CALL HCHAR(19,16,144) 

970 NEKT I 

980 IF SORTE>5 TPCN 1020 
990 SORTE®84 

ÌOOO CALL HCHAR<19,16,145) 

1010 GOTO 1040 
1020 SORTE-67 

1030 CALL HCHAR(19.16,144) 

1040 IF KK-90RTE THEN 1070 
1050 PRINT "HAI PERSO, COMINCIO IO."r:s 
1060 BOTO 1060 

1070 PRINT -HAI VINTO, COMINCI TU. "l? * 

1060 GOSUB 2210 
1090 CALL CLEAR 

ilio RESTORE’!ito 4 ’* 8,12,20,10,22 
1120 FOR I-l TO 4 
1130 READ PRIMO,ULTIMO 
1140 FOR J-PRIMO TO ULTIMO STEP 2 
USO CALL HCHAR ( 1*4+1 , 6 , 644-1 ) 

1160 CALL VCHAR(1«4,J,1^8,3) 

1170 PCIT 3 
UBO NEXT I 

1190 CALL HCHAR(20,3.136,20) 

1200 IF KK-SORTE THEN 1230 ELSE 2260 
1210 REM INIZIA IL *•* 

1220 REM #+« CONCORRENTE *** 

1230 IF ft(l)+R<2>+R<3>*ft<4>01 THEN 1270 
1240 PRINT -MI DISPIACE, HAI PERSO'-ss 
1250 GOSUB 2730 
1260 GOTO 2040 
1270 FOR J-l TO LEN(FFt) 

1280 L»ASC<SE0*<FF»,J.l)) 

1290 CALL HCHAR(22,2+J,L) 

1300 t&XT J 
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CALL HCHAR(22,24,64+RIGA) 

CALL HCHAR(22.23,40+NUHERD) 

FOR T-| TO 30& 

N£IT T 
GOSUB 73.30 

CALL HCHAR<22,3.32,20) 

GOTO 1230 

PRINT TAB<6>|*'- PREMI UN TASTO 
CALL KEr<O.K.B> 

1F 6-0 THEN *220 
RETURN 

REM «•• PRIMA MOSSA »»» 

RANDOtlZZE 
RIGA-INT<RND«4>-M 
NUMERO*! 

FOR T»1 TO 300 
NEXT T 
GOTO 2100 

REM CANCELLA *** 

CC-(4-RIGA) *2+ 10+2«R(RIGA) 

R(RIGA)-R(RIGA)-NUMERO 

FOR 1-1 TO NUttRO 

CALL VCHAR(RIGA»4,CC-I*2,32,3> 

NEXT I 
RETURN 
FOR 1-1 TO 4 
RN(I)-RR<1> 

NEXT I 

FOR B-l TO 3 
F-0 

FOR C-l TO 4-B 

IF RhMOl ) >-RW (C) THEN 2300 

T-RW(C) 

RM(C)-RW(C+1) 

AW(C*1)-T 
F-l 

NEXT C 

IF F-0 THEN 2530 
NEXT B 

IF <RWC| >-0>«(RW(2)-|) »<RW<3>-1>« <R*<4)-l)TMEN 2610 
IF (RW(1)-0)*(RW(2)-1)*CRW(3)-4)*(RW(4)-5ITHEN 2610 
IF (RW(1)-0)MRM(2>-I>«<RN(3)-2)«4RN44)-3)THEN 2610 
IF (RW(1)-O)•<RW<2>-2> *(RW(3>—4)«(RW(4)—6)THEN 2610 
IF <RhM 1)*RM<2> >•<RU<3)-RN(4))THEN 2600 
PERDEVO 
GOTO 2620 

IF RW<3> -1 THEN 2590 

PERDE-1 

RETURN 

CALL SOUND(130,639,2) 

CALL 90UND(130,307,2) 

- SOUND(300,323,2) 

t OUND(300,440,2) 

OUNO <300,690,2,440,3) 

SOUNO(300,704,2,307,3 > 


.OUNO < 2.-,._ 

SOUND(130,690,2,392, 3) 


CALL 
CALL 
CALL 
CALL 

CALL auunuuJV>o'ra,£|v 
CALL 90UND(130.639.2* 

CALL SOUND(1000,699.2, 440,3) 
RETURN 

CALL SOUND(300,323,2) 

CALL SOUND(300,440,2) 

CALL SOUND ( 130,440, 2) 

CALL 90UNDC130,494,2) 

CALL SOUND(300,323,2) 

CALL SOUND<130,494,2) 

CALL SOUND(130,523,2) 

CALL 90UND<130,494,2) 

CALL SOUNO(130.392.2) 

CALL SOUND(1000,440,2) 

RETURN 

PRINT "VUOI RICOMINCIARE? (9/N) 
CALL KEY(O.K.G) 

IF S-0 THEN 2830 

IF K-03 THEN 440 

IF K-79 THEN 2910 

PRINT :t •'ERRORE 1 RIPROVA" j : 

GOTO 2040 
CALL CL ~ 

END 




CLEAR 


U carattere 128 (istruzione 16D) è utilizzato per creare una cornice attor¬ 
no al titolo e soprattutto per disegnare i bastoncini indispensabili per il 
gioco. Oli altri caratteri (linee 320-380) consentono di disegnare una mo- 
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neia per sorteggiare a testa o croce chi deve iniziare. Le stringhe FF9 
FR$ e FT$ sono dei messaggi che compariranno nel corso del gioco. Il 
vettore R (righe 460-480) contiene il numero dei bastoncini presenti in 
ogni momento in ogni riga. 

Dopo una parte dedicata alle spiegazioni delle regole del gioco si passa 
alla pane attiva con il someggio della prima mossa (linea 740-1060); se 
questa spetta al concorrente si passa all'istruzione 1230, se invece spetta 
al computer si salta alla linea 2260. Questa pane del programma viene 
utilizzata dal computer solo per eseguire la sua prima mossa che, come é 
staio detto, é casuale; per esser più precisi é casuale solo la scelta della 
riga perché viene tolto sempre un solo bastoncino, come detta la pruden- 
za! 

Poiché il programma ritorna ciclicamente sui suoi passi, prima di esegui¬ 
re qualsiasi mossa si controlla sempre che non sia rimasto un solo ba¬ 
stoncino; la qual cosa si verifica sommando le quattro variabili con indi¬ 
ce R (istruzione 1230). I cicli FOR-NEXT alle linee 1270-1300 e 1410- 
1440 stampano i messaggi visti in precedenza evitando lo scrolling del vi¬ 
deo verso l’alto, simulando l'istruzione DISPLAY AT disponibile in Ex- 
tended Basic. In modo analogo le istruzioni CALL KEY alle righe 1310 e 
1360 sostituiscono l’istruzione INPUT. K1 e K2 contengono i codici ascu 
dei due tasti premuti per definire una mossa, esse vengono poi trasfor¬ 
mate nelle variabili RIGA e NUMERO che si riferiscono la prima alla fila 
dalla quale si tolgono i bastoncini e la seconda al numero dei bastoncini 
stessi. La routine 2320 effettua la mossa togliendo i bastoncini e aggior¬ 
nando il vettore R. 

Per cercare una mossa che gli consenta di vincere il computer trasferisce 
per prima cosa i valori di R in RR (1610-1630) al fine di non alterare, 
nel corso dell'elaborazione, il contenuto del primo vettore; dopo di che 
prova a togliere un bastoncino dalla quarta riga, poi due, poi tre, fino a 
quanti ne contiene la riga stessa; procede quindi togliendo un bastoncino 
dalla terza riga, e cosi via. Per non sommare le conseguenze di due mos¬ 
se, prima di ognuna il computer ripristina l'originale contenuto di RR. 
Ad ogni tentativo la routine 2390 controlla se si é venuta a creare una si¬ 
tuazione vincente. Vediamo subito come lavora questa routine. Abbiamo 
detto che se rimangono, ad esempio, tre file rispettivamente con 1, 2 e 3 
bastoncini 1’awersario non può salvarsi e la situazione è da considerarsi 
vincente. 

In questo caso il contenuto delle variabili con indice RR sarà 0, 1, 2, e 
3; tuttavia potrebbe essere anche 1, 0, 3, 2 o qualsiasi altra disposizione 
che non contenga 2 o 3 al primo posto. Lo stesso dicasi per le altre si¬ 
tuazioni vincenti. Per non dover considerare un numero troppo elevato 
di casi si trasferisce il vettore RR in RW e questo si ordina secondo valo¬ 
ri crescenti; in seguito si dovrà controllare la presenza di una sola dispo¬ 
sizione per ogni situazione vincente. Al termine della routine, la varìabi- 
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le Hsg PERDE segnala l'esito del controllo; se PERDE” 1 il computer ab¬ 
bandona le ricerche ed esegue senz'altro la mossa che era stata memoriz¬ 
zata in MOSSA1 (numero della fila) e MOSSA2 (numero dei bastonci¬ 
ni). 

Se non viene trovata una mossa vincente il programma passa alla linea 
1800 per esaminare le possibili mosse dell'avversario; verrà eseguita 
quella mossa, se esiste, che non consente risposte vincenti da pane 
dell’avversario. 

Anche in questa pane MOSSA1 e MOSSA2 hanno lo stesso significato 
dato loro in precedenza, RA ed NA rappresentano rispettivamente la riga 
ed il numero di bastoncini giocabili dall'avversario e corrispondono per¬ 
tanto ad una probabile mossa. Quando si verifica la condizione di riga 
1660, sono state esaminate tutte le possibili mosse dell'avversario senza 
che la routine 2390 abbia rilevato una situazione vincente; la mossa me¬ 
morizzata viene allora effettivamente giocata. 

Una caratteristica che a qualcuno potrà sembrare un difetto è che, se 
l’avversario inizia sempre con una mossa, anche il programma elabora 
sempre la medesima risposta creando sequenze che possono facilmente 
ripetersi in un'altra panila; tuttavia ciò è dovuto in gran pane alia con¬ 
formazione del gioco. 

£ interessante notare che simili tecniche di programmazione sono appli¬ 
cabili non solo ad una vasta gamma di giochi ove sia necessario dotare il 
computer di una strategia vincente ma anche nell’ambito di problemi di 
programmazione lineare in cui l’obiettivo sia la ricerca di situazioni otti¬ 
mali come ad esempio il migliore sfruttamento delle risorse, la riduzione 
dei costi, ecc. 
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supplemento d manuale detta macchina, e presenta nume¬ 
rose careflenstche del VIC. 

166 pagine. 12 000 ire. sigla POC 17 

i debug nel peraonelao m p rt ar 

d "debug", in intarmatici, dia messa a punto dai programmi, 
la neatea e la correzione tinaie degli errori Si Iran# di una 
operazione d grande importanze, che si può effettuare In 
viri modi, lutti trattali in questo Meo 

144 pagine. 15 000Me, ligie PDC 18 

Programmaitans in Batta per l'uomo daffari 

Questo ttaro e per gl uomini d affari che vogliono impa¬ 
rare ad usare 4 cacciatore il Mxo consocia con la convin¬ 
zione che sta più berte per un uomo d'affen imparare a 
programmare. Che per un programmatore Imparar# l'orga¬ 
nizzazione e la gettone di una azienda 

232peQ*rra. 19000Me. egUTOC 19 

Il «notata ZX-81 

£ d rrverooomputer più venduto nel mondo Ma come ogni 
computer, necessita d software • documentazione questo 
libro contiene 37 programmi che illustrano tutte le carane¬ 
ristiche e le capatila della macchina 

160 pagine. 13.000 Me. egta POC 20 

Ouma eccezionale giuda rende Isole per chiunque passare 
dalia propria conoscenza dei Base ad una perfetta padro¬ 
nanza dai Pascal, un fanguaggo a 2 favata che conserta di 
accelerai i tempo reale di operazione e di contralta dada 
programmazione e che richiede uno spano inferiore di me¬ 
moria nel vostro computer 

320 pagme. 1 9 000 Me. sigla POC 21 
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TRE CASSETTE CON TUTTI 
I PROGRAMMI 

Risparmiate tempo e denaro! 

Tutti i programmi descritti in questo libro 
sono disponibili già registrati su tre cassette, 
pronti per l’uso. 

Le tre cassette sono in vendita a 
_L40.000. 

Desidero ricevere in contrassegno 
□ le tre cassette 
con i programmi di 
“A scuola con il Texas TI 99/4A”. 
Scrivo il mio indirizzo sul retro. 


firma 







Scritto da un insegnante, questo è un libro di software per la scuola. 
Vi sono contenuti trenta programmi scritti in Basic 
per il Texas TI 99/4A home computer. 

Gli argomenti sono presentati in ordine di difficoltà crescente e sono 
tutti generalmente trattati negli studi medi inferiori e superiori. 

Ma non mancano applicazioni varie e giochi. 

Il volume sarà utile agli studenti e agli insegnanti che sentono 
l'esigenza di non essere soltanto utilizzatori passivi di questo nuovo 
strumento didattico. 

Risparmiate tempo ed errori! 

Tutti iprogrammi descritti in questo libro sono disponibili 
su tre cassette, pronti per essere utilizzati. 

Per l’ordine,usate la cartolina inserita nel volume. 
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